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 04:07:48 -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/t13385380776ukqygz6k724pz6.htm/, Retrieved Thu, 02 May 2024 00:49:08 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168176, Retrieved Thu, 02 May 2024 00:49:08 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [T-Tests] [Female height / r...] [2012-05-31 12:14:07] [8be39d68cf3e859c626e6f1d2306767c]
- R P   [T-Tests] [FHRH] [2012-06-01 08:05:33] [8be39d68cf3e859c626e6f1d2306767c]
-           [T-Tests] [FHRH] [2012-06-01 08:07:48] [ba39d87c5b07fdeb99ead4bedf199d9b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
161	159
161	158
157	155
161	158
168	165
163	160
166	165
168	165
175	171
170	170
171	168
166	165
169	168
166	160
157	153
166	165
164	161
169	170
166	165
164	160
163	159
160	158
174	173
162	158
165	163
173	169
162	160
165	163
164	161
158	155
175	171
165	163
163	159
166	161
160	150
160	158
165	163
169	175
167	163
170	170
165	165
163	160
162	160
161	161
165	160
169	165
159	153
155	154
164	163
163	160
163	160
175	173
164	160
152	150
167	164
166	165
166	163
174	171
167	165
168	163
178	175
165	163
153	154
157	153
171	169
157	155
166	163
160	158
148	148
162	160
172	168
163	160
165	163
176	176
171	171
160	155
165	165
157	158
173	170
168	165
162	160
150	152
163	160
167	165
163	160
161	160
162	158
172	171
159	155
170	168
166	165
158	155
165	160
162	160
172	168
169	166
158	155
164	165
156	158
164	161

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 & 0 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168176&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]0 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=168176&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168176&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 time0 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net






T-Test
Difference: Mean1 - Mean22.33
T Statistic11.64838
P-value0
Lower Confidence Limit1.9331
Upper Confidence Limit2.7269

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Difference: Mean1 - Mean2 & 2.33 \tabularnewline
T Statistic & 11.64838 \tabularnewline
P-value & 0 \tabularnewline
Lower Confidence Limit & 1.9331 \tabularnewline
Upper Confidence Limit & 2.7269 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168176&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Difference: Mean1 - Mean2[/C][C]2.33[/C][/ROW]
[ROW][C]T Statistic[/C][C]11.64838[/C][/ROW]
[ROW][C]P-value[/C][C]0[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]1.9331[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]2.7269[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168176&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168176&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 - Mean22.33
T Statistic11.64838
P-value0
Lower Confidence Limit1.9331
Upper Confidence Limit2.7269






Standard Deviations
Variable 15.67376
Variable 25.88045

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

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

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


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')