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 09:57:38 -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/t13384726743d5g8hmih7tl760.htm/, Retrieved Tue, 07 May 2024 04:05:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168083, Retrieved Tue, 07 May 2024 04:05:11 +0000
QR Codes:

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

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] [ht and rht ] [2012-05-31 13:57:38] [718abb62a78e84b22e01bdba2059eb20] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
161	159
161	158
157	155
166	163
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
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
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
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 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=168083&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=168083&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168083&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.09945
T Statistic13.61919
P-value0
Lower Confidence Limit1.79527
Upper Confidence Limit2.40363

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Difference: Mean1 - Mean2 & 2.09945 \tabularnewline
T Statistic & 13.61919 \tabularnewline
P-value & 0 \tabularnewline
Lower Confidence Limit & 1.79527 \tabularnewline
Upper Confidence Limit & 2.40363 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168083&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Difference: Mean1 - Mean2[/C][C]2.09945[/C][/ROW]
[ROW][C]T Statistic[/C][C]13.61919[/C][/ROW]
[ROW][C]P-value[/C][C]0[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]1.79527[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]2.40363[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168083&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168083&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.09945
T Statistic13.61919
P-value0
Lower Confidence Limit1.79527
Upper Confidence Limit2.40363






Standard Deviations
Variable 18.95461
Variable 29.39467

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

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

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


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