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:01:51 -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/t1338544925t4a5rq7a7bcgwqc.htm/, Retrieved Thu, 02 May 2024 04:24:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168524, Retrieved Thu, 02 May 2024 04:24:30 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Simple Linear Regression] [Triglyceridge Reg...] [2011-07-07 15:11:49] [74be16979710d4c4e7c6647856088456]
- R     [Simple Linear Regression] [Triglyceride] [2012-05-04 19:33:41] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RMPD    [CARE Data - Boxplots and Scatterplot Matrix] [Female weight aga...] [2012-06-01 09:15:24] [553711af6a3a99aac240956ee7ba8417]
- RMPD        [T-Tests] [Repeated t test f...] [2012-06-01 10:01:51] [50ef738b441df67da458e2632ba394c1] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
109	154
107	138
118	152
222	153
103	142
128	142
109	129
131	145
124	193
122	151
122	243
113	131
100	136
124	201
118	148
80	155
142	129
104	138
131	174
110	132
107	160
122	158
109	167
100.1696943	144.3409
110	167
150	147
113	209
131	135.3409
153	129
119	147
127	145
126	115
103	137
123	142
109	147
113	195
100	156
101.1696943	132
105	139
127	139
121	111
105	120
115	128
112	138
106	170
116	140
113	175
112	204
113	126
100	174
104	158
106.1696943	134
110	166
94	190
90	151
125	131
104	155
103	142
112	138.3409
128	176
114	167
112	181
153	168
124	134
136	174
110	112
108	137
98.16969429	114
90	191
136	151
88	122
123	153.3409
109	126
97	139
106	133
126	163
113.1696943	136
105	158
108	153.3409
109	140
130	151
110	181
110	175
114	145
137	163
115	152.3409
94	181
92	160

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

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






Wilcoxon Test
StatisticP-value
Wilcoxon Test1270

\begin{tabular}{lllllllll}
\hline
Wilcoxon Test \tabularnewline
 & Statistic & P-value \tabularnewline
Wilcoxon Test & 127 & 0 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168524&T=1

[TABLE]
[ROW][C]Wilcoxon Test[/C][/ROW]
[ROW][C][/C][C]Statistic[/C][C]P-value[/C][/ROW]
[ROW][C]Wilcoxon Test[/C][C]127[/C][C]0[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168524&T=1

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

Wilcoxon Test
StatisticP-value
Wilcoxon Test1270






Standard Deviations
Variable 118.10054
Variable 223.59708

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

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

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


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 10 ;
Parameters (R input):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = Wilcoxon-Mann_Whitney ; 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')