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 05:47:08 -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/t13385440522s16nah42hzah09.htm/, Retrieved Thu, 02 May 2024 09:32:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168406, Retrieved Thu, 02 May 2024 09:32:30 +0000
QR Codes:

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

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] [Morning Sickness ...] [2009-11-16 16:26:06] [74be16979710d4c4e7c6647856088456]
- R     [Aston University Statistical Software] [Morning Sickness ...] [2009-11-16 17:22:16] [74be16979710d4c4e7c6647856088456]
-   P     [T-Tests] [Morning Sickness ...] [2010-11-09 11:12:43] [3fdd735c61ad38cbc9b3393dc997cdb7]
- RM        [T-Tests] [Morning Sickness ...] [2011-11-07 09:34:35] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R PD          [T-Tests] [rep w] [2012-06-01 09:47:08] [e57e243758c137c22281f3a9b4f93ddb] [Current]
-    D            [T-Tests] [wom w] [2012-06-01 09:49:34] [dad037f44fabfe86d5fbc624d8e4b058]
-    D              [T-Tests] [men w] [2012-06-01 09:50:58] [dad037f44fabfe86d5fbc624d8e4b058]
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
66	66
56	85
75	73
57	107
65	66
75	64
59	74
63	70
62	58
51	69
61	71
54	76
57	98
50	76
66	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
66	67
55	83
47	94
45	76
63	66
51	77
51	73
55	66
64	89
55	84
57	91
77	83
62	68
68	86
55	58
56	68
66	58
45	95
68	75
44	61
61	66
53	64
47	68
53	67
62	82
66	68
53	78
55	66
55	70
66	75
55	93
55	86
55	71
67	80
58	66
47	91
45	81
66	
44	
66	
66	
56	
50	
54	
52	
58	
59	
62	
66	
50	
66	
66	
66	
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 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=168406&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=168406&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168406&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
Mean157.67857
Mean274.30357
T Statistic-11.67885
P-value0
Lower Confidence Limit-19.43586
Upper Confidence Limit-13.81414

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Mean1 & 57.67857 \tabularnewline
Mean2 & 74.30357 \tabularnewline
T Statistic & -11.67885 \tabularnewline
P-value & 0 \tabularnewline
Lower Confidence Limit & -19.43586 \tabularnewline
Upper Confidence Limit & -13.81414 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168406&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Mean1[/C][C]57.67857[/C][/ROW]
[ROW][C]Mean2[/C][C]74.30357[/C][/ROW]
[ROW][C]T Statistic[/C][C]-11.67885[/C][/ROW]
[ROW][C]P-value[/C][C]0[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-19.43586[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]-13.81414[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168406&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168406&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
Mean157.67857
Mean274.30357
T Statistic-11.67885
P-value0
Lower Confidence Limit-19.43586
Upper Confidence Limit-13.81414






Standard Deviations
Variable 16.74532
Variable 213.47058

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

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

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


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 10 ;
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):
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]), 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]), digits=5) )
a <- table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')