FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_Tests to Compare Two Means.wasp
Title produced by softwareT-Tests
Date of computationFri, 01 Jun 2012 05:56:22 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Jun/01/t1338544597izlf5av3304gb85.htm/, Retrieved Thu, 02 May 2024 12:45:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168482, Retrieved Thu, 02 May 2024 12:45:40 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact84

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [T-Tests] [] [2012-06-01 09:56:22] [0301813c92e7f0a585d1694b112c13fa] [Current]
-   PD    [T-Tests] [] [2012-06-01 10:03:04] [e25d35bacfa07b43589078f1d48fa396]
-   PD    [T-Tests] [] [2012-06-01 10:04:43] [e25d35bacfa07b43589078f1d48fa396]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
77	55
58	67
53	76
68	62
59	83
76	96
76	75
69	65
71	78
65	69
70	68
166	55
51	67
64	52
52	47
65	45
92	68
62	44
76	62
61	87
119	56
61	50
65	83
66	53
54	64
50	62
63	90
58	85
39	66
101	52
71	53
75	54
79	64
52	55
68	55
64	59
56	70
69	88
88	57
65	47
54	47
80	55
63	48
78	54
85	69
54	59
73	58
49	57
54	51
75	54
82	53
56	59
74	56
102	59
64	63
65	66
66	96
73	53
75	76
57	54
68	61
71	82
71	62
78	71
97	60
60	66
64	81
64	68
52	80
80	43
62	82
66	63
55	70
56	56
50	60
50	58
50	76
63	50
69	88
69	89
61	59
55	51
53	62
60	74
56	83
59	81
62	90
53	79
57	
57	
70	
56	
84	
69	
88	
56	
103	
50	
52	
55	
55	
63	
47	
45	
62	
53	
52	
57	
64	
59	
84	
79

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168482&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168482&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168482&T=0

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net






T-Test
Mean168.33036
Mean264.85714
T Statistic1.62145
P-value0.10652
Lower Confidence Limit-0.75101
Upper Confidence Limit7.69744

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Mean1 & 68.33036 \tabularnewline
Mean2 & 64.85714 \tabularnewline
T Statistic & 1.62145 \tabularnewline
P-value & 0.10652 \tabularnewline
Lower Confidence Limit & -0.75101 \tabularnewline
Upper Confidence Limit & 7.69744 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168482&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Mean1[/C][C]68.33036[/C][/ROW]
[ROW][C]Mean2[/C][C]64.85714[/C][/ROW]
[ROW][C]T Statistic[/C][C]1.62145[/C][/ROW]
[ROW][C]P-value[/C][C]0.10652[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-0.75101[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]7.69744[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168482&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168482&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

T-Test
Mean168.33036
Mean264.85714
T Statistic1.62145
P-value0.10652
Lower Confidence Limit-0.75101
Upper Confidence Limit7.69744






Standard Deviations
Variable 118.64384
Variable 212.89588

\begin{tabular}{lllllllll}
\hline
Standard Deviations \tabularnewline
Variable 1 & 18.64384 \tabularnewline
Variable 2 & 12.89588 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168482&T=2

[TABLE]
[ROW][C]Standard Deviations[/C][/ROW]
[ROW][C]Variable 1[/C][C]18.64384[/C][/ROW]
[ROW][C]Variable 2[/C][C]12.89588[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168482&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168482&T=2

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Standard Deviations
Variable 118.64384
Variable 212.89588


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = T-Test ; par5 = unpaired ; par6 = 0.0 ; par7 = 0.95 ; par8 = TRUE ;
Parameters (R input):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = T-Test ; par5 = unpaired ; par6 = 0.0 ; par7 = 0.95 ; par8 = TRUE ;
R code (references can be found in the software module):
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
par4 <- as.character(par4)
par5 <- as.character(par5)
par6 <- as.numeric(par6)
par7 <- as.numeric(par7)
par8 <- as.logical(par8)
if ( par5 == 'unpaired') paired <- FALSE else paired <- TRUE
x <- t(y)
if(par8){
bitmap(file='test1.png')
(r<-boxplot(x ,xlab=xlab,ylab=ylab,main=main,notch=FALSE,col=2))
dev.off()
}
load(file='createtable')
if( par4 == 'Wilcoxon-Mann_Whitney'){
a<-table.start()
a <- table.row.start(a)
a <- table.element(a,'Wilcoxon Test',3,TRUE)
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'',1,TRUE)
a <- table.element(a,'Statistic',1,TRUE)
a <- table.element(a,'P-value',1,TRUE)
a <- table.row.end(a)
W <- wilcox.test(x[,par2],x[,par3],alternative=par1, paired = paired)
a<-table.row.start(a)
a<-table.element(a,'Wilcoxon Test',1,TRUE)
a<-table.element(a,W$statistic[[1]])
a<-table.element(a,round(W$p.value, digits=5) )
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
}
if( par4 == 'T-Test')
{
T <- t.test(x[,par2],x[,par3],alternative=par1, paired=paired, mu=par6, conf.level=par7)
a<-table.start()
a <- table.row.start(a)
a <- table.element(a,'T-Test',3,TRUE)
a <- table.row.end(a)
if(paired){
a <- table.row.start(a)
a <- table.element(a,'Difference: Mean1 - Mean2',1,TRUE)
a<-table.element(a,round(T$estimate, digits=5) )
a <- table.row.end(a)
}
if(!paired){
a <- table.row.start(a)
a <- table.element(a,'Mean1',1,TRUE)
a<-table.element(a,round(T$estimate[1], digits=5) )
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'Mean2',1,TRUE)
a<-table.element(a,round(T$estimate[2], digits=5) )
a <- table.row.end(a)
}
a <- table.row.start(a)
a <- table.element(a,'T Statistic',1,TRUE)
a<-table.element(a,round(T$statistic, digits=5) )
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'P-value',1,TRUE)
a<-table.element(a,round(T$p.value, digits=5) )
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'Lower Confidence Limit',1,TRUE)
a<-table.element(a,round(T$conf.int[1], digits=5) )
a <- table.row.end(a)
a<-table.row.start(a)
a <- table.element(a,'Upper Confidence Limit',1,TRUE)
a<-table.element(a,round(T$conf.int[2], digits=5) )
a <- table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
}
a<-table.start()
a <- table.row.start(a)
a <- table.element(a,'Standard Deviations',3,TRUE)
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'Variable 1',1,TRUE)
a<-table.element(a,round(sd(x[,par2], na.rm=TRUE), digits=5) )
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'Variable 2',1,TRUE)
a<-table.element(a,round(sd(x[,par3], na.rm=TRUE), digits=5) )
a <- table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')