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 12:18:52 -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/t133848115574fxlkpk60mx0jc.htm/, Retrieved Mon, 06 May 2024 16:31:41 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168113, Retrieved Mon, 06 May 2024 16:31:41 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [T-Tests] [height female] [2012-05-31 16:06:00] [3030e7f8365b8c92cf1bdf2e49678d4e]
-   PD    [T-Tests] [t-test male height] [2012-05-31 16:18:52] [b4ef74491d3b8f4e5f7fd2ea7598c711] [Current]
Feedback Forum

Post a new message

Dataset

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

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'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168113&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168113&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168113&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'Herman Ole Andreas Wold' @ wold.wessa.net






T-Test
Difference: Mean1 - Mean2-1.7561
T Statistic-7.40922
P-value0
Lower Confidence Limit-2.22768
Upper Confidence Limit-1.28451

\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 & -2.22768 \tabularnewline
Upper Confidence Limit & -1.28451 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168113&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]-2.22768[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]-1.28451[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168113&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168113&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 - Mean2-1.7561
T Statistic-7.40922
P-value0
Lower Confidence Limit-2.22768
Upper Confidence Limit-1.28451






Standard Deviations
Variable 16.97758
Variable 26.64904

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

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

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


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