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:33: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/t13385468225mfkge31k9li5i3.htm/, Retrieved Thu, 02 May 2024 01:58:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168722, Retrieved Thu, 02 May 2024 01:58:38 +0000
QR Codes:

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

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] [] [2012-06-01 09:54:33] [2ab645d57af3771f73e43c325a328185]
- RM D        [T-Tests] [] [2012-06-01 10:33:29] [07b157108dbd2cdfd517d0dd50891b88] [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
54	56	82	85
75	75	74	73
56	57	102	107
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	55	66	66
63	64	69	70
61	60	69	70
53	52	55	56
60	55	59	61
56	56	62	66
53	53	70	68
57	59	84	86
57	56	69	71
56	56	88	87
56	57	103	101
50	50	63	63
52	52	84	90
55	55	79	79
47	47	67	67
45	45	83	83
62	63	96	94
53	51	75	76
52	51	65	66
57	55	78	77
64	64	69	73
59	55	87	89
55	57	83	84
76	77	90	91
62	62	85	83
68	68	66	68
55	55	88	86
45	45	54	58
68	68	69	68
44	44	56	58
62	61	96	95
56	53	76	75
50	47	61	61
53	53	62	64
64	62	71	68
52	53	66	67
53	55	81	82
54	55	68	68
64	66	80	78
55	55	70	70
55	55	76	75
59	55	88	93
70	67	89	86
57	58	74	71
47	47	83	80
47	45	90	91
48	44	79	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=168722&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=168722&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168722&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
Mean158.5
Mean256.81707
T Statistic0.96784
P-value0.33507
Lower Confidence Limit-1.75989
Upper Confidence Limit5.12574

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Mean1 & 58.5 \tabularnewline
Mean2 & 56.81707 \tabularnewline
T Statistic & 0.96784 \tabularnewline
P-value & 0.33507 \tabularnewline
Lower Confidence Limit & -1.75989 \tabularnewline
Upper Confidence Limit & 5.12574 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168722&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Mean1[/C][C]58.5[/C][/ROW]
[ROW][C]Mean2[/C][C]56.81707[/C][/ROW]
[ROW][C]T Statistic[/C][C]0.96784[/C][/ROW]
[ROW][C]P-value[/C][C]0.33507[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-1.75989[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]5.12574[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168722&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168722&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
Mean158.5
Mean256.81707
T Statistic0.96784
P-value0.33507
Lower Confidence Limit-1.75989
Upper Confidence Limit5.12574






Standard Deviations
Variable 114.04864
Variable 27.11133

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

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

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


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 3 ; par2 = TRUE ; par3 = 0 ;
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):
par8 <- 'TRUE'
par7 <- '0.95'
par6 <- '0.0'
par5 <- 'unpaired'
par4 <- 'T-Test'
par3 <- '2'
par2 <- '1'
par1 <- 'two.sided'
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')