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 10:28:34 -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/t1338474535sppp2tv3h9jbu6l.htm/, Retrieved Mon, 06 May 2024 17:54:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168091, Retrieved Mon, 06 May 2024 17:54:18 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram, QQplot and Density] [Female weight des...] [2012-05-30 09:46:42] [bee56a896f26c17646228a77f17a2aff]
- R  D  [Histogram, QQplot and Density] [Male weight descr...] [2012-05-30 09:54:00] [bee56a896f26c17646228a77f17a2aff]
- RMPD    [T-Tests] [Weight and RepWei...] [2012-05-31 12:59:56] [bee56a896f26c17646228a77f17a2aff]
- R  D      [T-Tests] [Weight and RepWei...] [2012-05-31 14:24:15] [bee56a896f26c17646228a77f17a2aff]
-    D        [T-Tests] [Weight and RepWei...] [2012-05-31 14:26:41] [bee56a896f26c17646228a77f17a2aff]
-    D            [T-Tests] [Height and RepHei...] [2012-05-31 14:28:34] [c60080e90d514f19ee1378b89a456a2a] [Current]
-    D              [T-Tests] [Height and RepHei...] [2012-05-31 14:30:47] [bee56a896f26c17646228a77f17a2aff]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
157	153
157	155
163	160
157	153
163	160
162	160
150	152
163	160
166	165
166	161
160	150
169	165
148	148
158	155
161	158
163	160
156	158
163	160
164	161
158	155
159	153
152	150
163	160
161	158
169	175
165	165
164	160
162	160
165	163
162	158
158	155
171	168
164	160
160	158
174	173
176	176
161	160
165	163
164	163
174	171
165	163
160	155
165	165
166	165
165	163
163	159
170	170
161	161
165	160
160	158
162	160
163	160
162	160
167	164
168	165
167	165
161	159
166	160
169	166
157	155
166	163
157	158
172	171
159	155
164	165
162	160
167	163
172	168
175	171
170	170
165	163
168	165
175	171
175	173
168	163
166	163
164	161
169	168
163	159
160	158
170	168
165	160
168	165
165	163
164	161
166	165
172	168
171	171
166	165
166	165
169	170
178	175
171	169
173	170
166	165
162	158
167	165
173	169

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
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168091&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]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168091&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168091&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
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.






T-Test
Difference: Mean1 - Mean22.37755
T Statistic11.84437
P-value0
Lower Confidence Limit1.97915
Upper Confidence Limit2.77595

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Difference: Mean1 - Mean2 & 2.37755 \tabularnewline
T Statistic & 11.84437 \tabularnewline
P-value & 0 \tabularnewline
Lower Confidence Limit & 1.97915 \tabularnewline
Upper Confidence Limit & 2.77595 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168091&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Difference: Mean1 - Mean2[/C][C]2.37755[/C][/ROW]
[ROW][C]T Statistic[/C][C]11.84437[/C][/ROW]
[ROW][C]P-value[/C][C]0[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]1.97915[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]2.77595[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168091&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168091&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.37755
T Statistic11.84437
P-value0
Lower Confidence Limit1.97915
Upper Confidence Limit2.77595






Standard Deviations
Variable 15.52324
Variable 25.82078

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

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

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


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