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 05:51: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/t1338544319jfy6tarr75v2mc5.htm/, Retrieved Wed, 01 May 2024 23:38:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168450, Retrieved Wed, 01 May 2024 23:38:32 +0000
QR Codes:

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

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 09:51:51] [ab4cbf26a19d6e65c443db09fa735ee6] [Current]
Feedback Forum

Post a new message

Dataset

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168450&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
Mean157.86607
Mean256.74257
T Statistic0.83312
P-value0.40591
Lower Confidence Limit-1.53801
Upper Confidence Limit3.785

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Mean1 & 57.86607 \tabularnewline
Mean2 & 56.74257 \tabularnewline
T Statistic & 0.83312 \tabularnewline
P-value & 0.40591 \tabularnewline
Lower Confidence Limit & -1.53801 \tabularnewline
Upper Confidence Limit & 3.785 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168450&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Mean1[/C][C]57.86607[/C][/ROW]
[ROW][C]Mean2[/C][C]56.74257[/C][/ROW]
[ROW][C]T Statistic[/C][C]0.83312[/C][/ROW]
[ROW][C]P-value[/C][C]0.40591[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-1.53801[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]3.785[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168450&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168450&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.86607
Mean256.74257
T Statistic0.83312
P-value0.40591
Lower Confidence Limit-1.53801
Upper Confidence Limit3.785






Standard Deviations
Variable 112.38314
Variable 26.73744

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

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

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


Figures (Output of Computation)

Input Parameters & R Code

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