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:10:12 -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/t1338545431p3ppnkem201439n.htm/, Retrieved Thu, 02 May 2024 09:58:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168581, Retrieved Thu, 02 May 2024 09:58:20 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [T-Tests] [Actual Vs Reporte...] [2012-06-01 10:10:12] [784e4f8c7c58de81885d4525a9d3f3e7] [Current]
Feedback Forum

Post a new message

Dataset

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

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

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






Wilcoxon Test
StatisticP-value
Wilcoxon Test44870.70336

\begin{tabular}{lllllllll}
\hline
Wilcoxon Test \tabularnewline
 & Statistic & P-value \tabularnewline
Wilcoxon Test & 4487 & 0.70336 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168581&T=1

[TABLE]
[ROW][C]Wilcoxon Test[/C][/ROW]
[ROW][C][/C][C]Statistic[/C][C]P-value[/C][/ROW]
[ROW][C]Wilcoxon Test[/C][C]4487[/C][C]0.70336[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168581&T=1

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

Wilcoxon Test
StatisticP-value
Wilcoxon Test44870.70336






Standard Deviations
Variable 113.44713
Variable 213.85383

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

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

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


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 10 ;
Parameters (R input):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = Wilcoxon-Mann_Whitney ; 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')