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 06:29:44 -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/t1338546606a9ptafv0frt35x0.htm/, Retrieved Thu, 02 May 2024 07:29:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168697, Retrieved Thu, 02 May 2024 07:29:14 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [T-Tests] [Men and Women's W...] [2012-06-01 10:29:44] [40380aa9d3158194c7c2f2fa28deba57] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
51	77
54	70
59	76
56	77
52	73
64	71
57	64
66	75
62	101
61	75
61	124
59	66
50	70
61	100
60	73
41	76
71	65
52	69
63	86
54	67
53	80
59	80
55	82
56	85
75	73
57	107
65	64
75	74
59	70
63	58
62	69
51	71
61	76
54	98
57	76
50	66
55	70
64	70
60	56
52	61
55	66
56	68
53	86
59	71
56	87
56	101
57	63
50	90
52	79
55	67
47	83
45	94
63	76
51	66
51	77
55	73
64	89
55	84
57	91
77	83
62	68
68	86
55	58
56	68
45	58
68	95
44	75
61	61
53	64
47	68
53	67
62	82
53	68
55	78
55	70
66	75
55	93
55	86
55	71
67	80
58	91
47	81
45	
44	
56	
50	
54	
52	
58	
59	
62	
66	
50	
59	
56	
55	
54	
49	
59	
51	
61

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=168697&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=168697&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168697&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
Mean158.71287
Mean272.72277
T Statistic-8.53353
P-value0
Lower Confidence Limit-17.25073
Upper Confidence Limit-10.76908

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Mean1 & 58.71287 \tabularnewline
Mean2 & 72.72277 \tabularnewline
T Statistic & -8.53353 \tabularnewline
P-value & 0 \tabularnewline
Lower Confidence Limit & -17.25073 \tabularnewline
Upper Confidence Limit & -10.76908 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168697&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Mean1[/C][C]58.71287[/C][/ROW]
[ROW][C]Mean2[/C][C]72.72277[/C][/ROW]
[ROW][C]T Statistic[/C][C]-8.53353[/C][/ROW]
[ROW][C]P-value[/C][C]0[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-17.25073[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]-10.76908[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168697&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168697&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
Mean158.71287
Mean272.72277
T Statistic-8.53353
P-value0
Lower Confidence Limit-17.25073
Upper Confidence Limit-10.76908






Standard Deviations
Variable 18.89082
Variable 213.89901

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

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

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


Figures (Output of Computation)

Input Parameters & R Code

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