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 computationThu, 31 May 2012 10:30:47 -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/May/31/t1338474668y2spori64ncx9jj.htm/, Retrieved Mon, 06 May 2024 18:46:22 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168093, Retrieved Mon, 06 May 2024 18:46:22 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram, QQplot and Density] [Female weight des...] [2012-05-30 09:46:42] [bee56a896f26c17646228a77f17a2aff]
- R  D  [Histogram, QQplot and Density] [Male weight descr...] [2012-05-30 09:54:00] [bee56a896f26c17646228a77f17a2aff]
- RMPD    [T-Tests] [Weight and RepWei...] [2012-05-31 12:59:56] [bee56a896f26c17646228a77f17a2aff]
- R  D      [T-Tests] [Weight and RepWei...] [2012-05-31 14:24:15] [bee56a896f26c17646228a77f17a2aff]
-    D        [T-Tests] [Weight and RepWei...] [2012-05-31 14:26:41] [bee56a896f26c17646228a77f17a2aff]
-    D          [T-Tests] [Height and RepHei...] [2012-05-31 14:28:34] [bee56a896f26c17646228a77f17a2aff]
-    D              [T-Tests] [Height and RepHei...] [2012-05-31 14:30:47] [c60080e90d514f19ee1378b89a456a2a] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
169	165
168	170
163	161
173	170
182	183
170	170
178	175
168	168
178	175
176	175
171	170
175	173
187	188
176	172
178	178
173	170
173	175
175	175
170	165
179	179
177	175
165	165
174	173
186	180
174	171
182	180
183	183
180	180
167	165
172	174
175	174
173	170
173	173
178	175
177	170
180	175
178	178
183	180
169	170
175	175
178	175
172	169
169	165
170	165
167	165
197	200
169	165
183	180
182	180
183	180
178	175
173	173
179	171
177	178
178	178
178	175
176	175
178	175
182	183
184	181
177	175
180	180
184	183
183	183
179	175
191	188
185	185
178	175
189	185
184	183
185	188
173	173
188	185
181	178
187	185
184	183
191	188
189	185
183	180
185	185
185	182
180	178

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'Gwilym Jenkins' @ jenkins.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168093&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168093&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168093&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'Gwilym Jenkins' @ jenkins.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.






T-Test
Difference: Mean1 - Mean21.7561
T Statistic7.40922
P-value0
Lower Confidence Limit1.28451
Upper Confidence Limit2.22768

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Difference: Mean1 - Mean2 & 1.7561 \tabularnewline
T Statistic & 7.40922 \tabularnewline
P-value & 0 \tabularnewline
Lower Confidence Limit & 1.28451 \tabularnewline
Upper Confidence Limit & 2.22768 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168093&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Difference: Mean1 - Mean2[/C][C]1.7561[/C][/ROW]
[ROW][C]T Statistic[/C][C]7.40922[/C][/ROW]
[ROW][C]P-value[/C][C]0[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]1.28451[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]2.22768[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168093&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168093&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
Difference: Mean1 - Mean21.7561
T Statistic7.40922
P-value0
Lower Confidence Limit1.28451
Upper Confidence Limit2.22768






Standard Deviations
Variable 16.64904
Variable 26.97758

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168093&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 16.64904
Variable 26.97758


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = T-Test ; par5 = paired ; par6 = 0.0 ; par7 = 0.95 ; par8 = TRUE ;
Parameters (R input):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = T-Test ; par5 = paired ; 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')