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 computationThu, 31 May 2012 08:59:56 -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/May/31/t1338469230wchjq8ihxvlkw87.htm/, Retrieved Mon, 06 May 2024 17:07:25 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168076, Retrieved Mon, 06 May 2024 17:07:25 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram, QQplot and Density] [Female weight des...] [2012-05-30 09:46:42] [bee56a896f26c17646228a77f17a2aff]
- R  D  [Histogram, QQplot and Density] [Male weight descr...] [2012-05-30 09:54:00] [bee56a896f26c17646228a77f17a2aff]
- RMPD      [T-Tests] [Weight and RepWei...] [2012-05-31 12:59:56] [c60080e90d514f19ee1378b89a456a2a] [Current]
- R  D        [T-Tests] [Weight and RepWei...] [2012-05-31 14:24:15] [bee56a896f26c17646228a77f17a2aff]
-    D          [T-Tests] [Weight and RepWei...] [2012-05-31 14:26:41] [bee56a896f26c17646228a77f17a2aff]
-    D            [T-Tests] [Height and RepHei...] [2012-05-31 14:28:34] [bee56a896f26c17646228a77f17a2aff]
-    D              [T-Tests] [Height and RepHei...] [2012-05-31 14:30:47] [bee56a896f26c17646228a77f17a2aff]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
58	41
53	44
59	45
166	45
51	47
64	47
52	45
65	44
62	50
61	50
61	55
54	50
50	47
63	49
58	52
39	50
71	51
52	57
68	52
56	51
54	52
63	51
54	53
54	54
75	52
56	53
78	51
60	53
64	55
64	52
52	50
62	59
55	53
56	55
50	56
50	55
63	54
61	54
53	55
60	57
56	55
53	55
57	55
57	54
56	57
56	57
50	56
52	56
55	57
47	53
45	56
62	59
53	56
52	55
57	58
64	56
59	51
55	60
76	54
62	59
68	55
55	55
45	58
68	59
44	59
62	59
56	55
50	55
53	61
64	61
52	60
53	62
54	61
64	63
55	62
55	61
59	61
70	61
57	59
47	64
47	62
48	59
57	64
51	63
54	62
53	64
59	62
59	66
63	66
66	66
53	63
63	68
56	68
60	67
58	71
50	75
59	77
51	75
62	58
77	56
68	58
76	58
76	61
69	61
71	66
65	64
70	63
92	65
76	64
119	66
65	67
66	64
101	66
75	70
79	66
64	68
69	67
88	67
65	70
80	69
78	68
85	73
82	69
74	70
102	70
65	71
73	73
75	68
57	75
68	68
71	70
71	71
97	71
80	76
66	68
69	74
69	73
55	71
59	73
62	70
70	76
84	76
69	77
88	75
103	75
63	75
84	77
79	80
67	77
83	76
96	79
75	81
65	80
78	76
69	78
87	82
83	85
90	83
85	84
66	80
88	86
54	90
69	82
56	83
96	89
76	86
61	87
62	86
71	93
66	86
81	91
68	91
80	101
70	94
76	95
88	98
89	100
74	107
83	101
90	124
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
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168076&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]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168076&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168076&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
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.






T-Test
Difference: Mean1 - Mean20.48619
T Statistic0.40869
P-value0.68325
Lower Confidence Limit-1.86121
Upper Confidence Limit2.83359

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Difference: Mean1 - Mean2 & 0.48619 \tabularnewline
T Statistic & 0.40869 \tabularnewline
P-value & 0.68325 \tabularnewline
Lower Confidence Limit & -1.86121 \tabularnewline
Upper Confidence Limit & 2.83359 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168076&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Difference: Mean1 - Mean2[/C][C]0.48619[/C][/ROW]
[ROW][C]T Statistic[/C][C]0.40869[/C][/ROW]
[ROW][C]P-value[/C][C]0.68325[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-1.86121[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]2.83359[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168076&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168076&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.48619
T Statistic0.40869
P-value0.68325
Lower Confidence Limit-1.86121
Upper Confidence Limit2.83359






Standard Deviations
Variable 115.34099
Variable 213.86181

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

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

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


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