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

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

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] [weight] [2012-06-01 10:16:47] [2c6fbeb8b035aff78a2ee3c8ba680127] [Current]
Feedback Forum

Post a new message

Dataset

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168624&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
Difference: Mean1 - Mean20.60109
T Statistic0.96183
P-value0.33741
Lower Confidence Limit-0.63198
Upper Confidence Limit1.83416

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Difference: Mean1 - Mean2 & 0.60109 \tabularnewline
T Statistic & 0.96183 \tabularnewline
P-value & 0.33741 \tabularnewline
Lower Confidence Limit & -0.63198 \tabularnewline
Upper Confidence Limit & 1.83416 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168624&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Difference: Mean1 - Mean2[/C][C]0.60109[/C][/ROW]
[ROW][C]T Statistic[/C][C]0.96183[/C][/ROW]
[ROW][C]P-value[/C][C]0.33741[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-0.63198[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]1.83416[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168624&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168624&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
Difference: Mean1 - Mean20.60109
T Statistic0.96183
P-value0.33741
Lower Confidence Limit-0.63198
Upper Confidence Limit1.83416






Standard Deviations
Variable 115.09501
Variable 213.77667

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

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

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


Figures (Output of Computation)

Input Parameters & R Code

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