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:01:13 -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/t1338480099p1mrj7n9yb1olb4.htm/, Retrieved Mon, 29 Apr 2024 20:04:02 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168106, Retrieved Mon, 29 Apr 2024 20:04:02 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Aston University Statistical Software] [Reddy_Moores Wilc...] [2009-11-02 09:28:43] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM    [Kolmogorov-Smirnov Test] [Mann-Whitney-Wilc...] [2010-11-02 12:37:15] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM      [Wilcoxon-Mann-Whitney Test] [Mann-Whitney-Wilc...] [2010-11-03 14:20:14] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM        [Aston University Statistical Software] [Mann-Whitney-Wilc...] [2011-11-01 11:14:29] [72617798859a54657cdee39682e42a20]
- RM D        [Aston University Statistical Software] [K Test] [2011-11-03 12:42:52] [895f9de29a654334f7aa22b48b6b79ac]
- RM D            [T-Tests] [T-Test Of Men's r...] [2012-05-31 16:01:13] [40380aa9d3158194c7c2f2fa28deba57] [Current]
Feedback Forum

Post a new message

Dataset

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

\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
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168106&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]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168106&T=0

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






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=168106&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=168106&T=1

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168106&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 ;
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):
par8 <- 'TRUE'
par7 <- '0.95'
par6 <- '0.0'
par5 <- 'paired'
par4 <- 'Wilcoxon-Mann_Whitney'
par3 <- '2'
par2 <- '1'
par1 <- 'two.sided'
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')