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:29 -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/t1338544895jw3sr14igi14ne8.htm/, Retrieved Thu, 02 May 2024 12:10:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168520, Retrieved Thu, 02 May 2024 12:10:36 +0000
QR Codes:

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

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      [T-Tests] [] [2012-06-01 10:01:29] [fd6f6c41307f2d68a8b6c02e39d8956a] [Current]
Feedback Forum

Post a new message

Dataset

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

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'Gwilym Jenkins' @ jenkins.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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168520&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168520&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168520&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'Gwilym Jenkins' @ jenkins.wessa.net






T-Test
Mean156.64634
Mean276.56098
T Statistic-12.70036
P-value0
Lower Confidence Limit-23.01684
Upper Confidence Limit-16.81243

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Mean1 & 56.64634 \tabularnewline
Mean2 & 76.56098 \tabularnewline
T Statistic & -12.70036 \tabularnewline
P-value & 0 \tabularnewline
Lower Confidence Limit & -23.01684 \tabularnewline
Upper Confidence Limit & -16.81243 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168520&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Mean1[/C][C]56.64634[/C][/ROW]
[ROW][C]Mean2[/C][C]76.56098[/C][/ROW]
[ROW][C]T Statistic[/C][C]-12.70036[/C][/ROW]
[ROW][C]P-value[/C][C]0[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-23.01684[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]-16.81243[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168520&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168520&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
Mean156.64634
Mean276.56098
T Statistic-12.70036
P-value0
Lower Confidence Limit-23.01684
Upper Confidence Limit-16.81243






Standard Deviations
Variable 17.11696
Variable 212.2868

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

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

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


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = T-Test ; par5 = unpaired ; 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):
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')