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:16:05 -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/t1338545776br0qyg6id0aqwaz.htm/, Retrieved Thu, 02 May 2024 07:01:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168618, Retrieved Thu, 02 May 2024 07:01:56 +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)
-     [T-Tests] [] [2012-06-01 10:12:46] [e3bca26b0e60ee0c7c12e4668b30341a]
- R  D    [T-Tests] [] [2012-06-01 10:16:05] [5785344b7622c5aa2d3a8a0c8dd90052] [Current]
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
NA	NA
56	85
75	73
57	107
65	NA
75	64
59	74
63	70
62	58
51	69
61	71
54	76
57	98
50	76
NA	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
NA	67
55	83
47	94
45	76
63	66
51	77
51	73
55	NA
64	89
55	84
57	91
77	83
62	68
68	86
55	58
56	68
NA	58
45	95
68	75
44	61
61	NA
53	64
47	68
53	67
62	82
NA	68
53	78
55	NA
55	70
66	75
55	93
55	86
55	71
67	80
58	NA
47	91
45	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'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 & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168618&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168618&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168618&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'Gertrude Mary Cox' @ cox.wessa.net






T-Test
Mean157.06024
Mean276.56098
T Statistic-12.51493
P-value0
Lower Confidence Limit-22.58389
Upper Confidence Limit-16.41758

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Mean1 & 57.06024 \tabularnewline
Mean2 & 76.56098 \tabularnewline
T Statistic & -12.51493 \tabularnewline
P-value & 0 \tabularnewline
Lower Confidence Limit & -22.58389 \tabularnewline
Upper Confidence Limit & -16.41758 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168618&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Mean1[/C][C]57.06024[/C][/ROW]
[ROW][C]Mean2[/C][C]76.56098[/C][/ROW]
[ROW][C]T Statistic[/C][C]-12.51493[/C][/ROW]
[ROW][C]P-value[/C][C]0[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-22.58389[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]-16.41758[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168618&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168618&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.06024
Mean276.56098
T Statistic-12.51493
P-value0
Lower Confidence Limit-22.58389
Upper Confidence Limit-16.41758






Standard Deviations
Variable 16.97967
Variable 212.2868

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

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

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


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