Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Module--
Title produced by softwareAston University Statistical Software
Date of computationMon, 14 Nov 2011 13:27:19 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/14/t132129525005166ojjcpz6akk.htm/, Retrieved Fri, 29 Mar 2024 11:16:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=142176, Retrieved Fri, 29 Mar 2024 11:16:20 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact109
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Aston University Statistical Software] [Reddy_Moores Wilc...] [2009-11-02 09:28:43] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM    [Kolmogorov-Smirnov Test] [Mann-Whitney-Wilc...] [2010-11-02 12:37:15] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM      [Wilcoxon-Mann-Whitney Test] [Mann-Whitney-Wilc...] [2010-11-03 14:20:14] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM        [Aston University Statistical Software] [Mann-Whitney-Wilc...] [2011-11-01 11:14:29] [72617798859a54657cdee39682e42a20]
- RM          [Aston University Statistical Software] [] [2011-11-03 12:37:31] [483074838c7eb9e0ff7f7d3e3c3f8586]
- R  D          [Aston University Statistical Software] [] [2011-11-08 08:08:05] [483074838c7eb9e0ff7f7d3e3c3f8586]
-  M                [Aston University Statistical Software] [] [2011-11-14 18:27:19] [7cb3389c165bc116919f8c93cbf97eb6] [Current]
Feedback Forum

Post a new message
Dataseries X:
70.80	70.9450
69.60	70.6116
69.87	68.6116
67.47	68.2783
67.60	67.6116
67.13	65.6116
66.27	68.9450
66.73	67.2783
68.07	64.9450
67.80	67.9450
64.80	64.9450
64.60	65.9450
64.20	66.6116
64.20	64.6116
63.67	63.9450
61.00	64.6116
59.67	63.6116
59.67	62.9450
59.80	62.9450
60.73	63.6116
59.40	61.6116
58.07	63.6116
57.47	60.2783
70.73	57.9450
72.87	62.9450
66.00	53.6116
66.07	75.6116
66.00	74.6116
66.27	73.2783
64.00	70.2783
63.67	70.2783
63.73	67.6116
63.33	69.6116
63.53	68.6116
63.53	68.2783
62.87	65.9450
59.53	67.9450
62.80	68.9450
60.80	65.9450
59.80	66.2783
56.67	65.6116
57.67	67.9450
58.40	65.6116
55.47	66.6116
56.20	63.9450
71.53	63.6116
68.67	65.9450
65.67	62.9450
66.73	62.2783
67.33	60.9450
66.73	63.9450
66.87	62.2783
65.80	61.2783
64.73	61.9450
65.47	62.9450
63.60	59.6116
64.07	60.2783
64.67	59.9450
63.73	57.6116
62.53	57.9450
61.93	55.2783
62.67	51.2783
62.80	8.6116
61.33	74.2783
62.60	72.9450
59.13	71.9450
61.27	70.2783
59.47	69.9450
57.87	69.9450
59.73	67.9450
61.40	67.9450
58.80	68.2783
58.33	66.2783
57.47	66.2783
57.13	65.9450
55.00	65.9450
51.53	67.6116
72.73	65.2783
73.00	66.6116
70.80	64.6116
70.07	64.6116
71.67	64.9450
71.07	61.9450
70.67	62.6116
70.73	62.2783
70.73	61.6116
68.60	60.9450
69.60	62.2783
66.47	59.6116
67.07	59.9450
68.67	58.9450
66.93	60.6116
65.93	59.2783
68.87	59.2783
66.53	58.9450
65.80	58.6116
66.60	53.2783
66.00	52.6116
65.00	53.9450
66.80	47.9450
65.60	10.6116
66.00	7.2783
65.67	70.9450
64.67	71.6116
65.07	69.6116
64.67	70.2783
65.07	69.9450
65.20	70.9450
64.87	69.9450
63.47	69.2783
62.60	68.9450
64.07	70.9450
63.73	67.9450
64.67	67.6116
61.60	67.9450
61.60	67.6116
60.47	67.9450
61.27	67.2783
63.00	65.9450
61.47	65.6116
60.87	64.9450
61.67	64.2783
62.87	65.9450
62.40	65.6116
59.73	62.9450
60.13	64.6116
58.80	63.9450
59.60	63.6116
58.93	63.9450
60.13	65.2783
58.20	65.2783
58.27	64.2783
58.27	64.2783
55.07	62.9450
53.87	62.6116
52.33	62.2783
47.20	60.6116
37.93	58.9450
72.73	59.6116
70.07	58.2783
70.67	56.9450
72.07	48.2783
68.80	69.9450
68.80	69.2783
67.47	70.6116
66.73	68.2783
66.53	66.6116
66.00	65.6116
67.60	67.2783
66.00	67.9450
66.00	66.2783
66.53	65.6116
65.80	68.9450
64.27	66.9450
64.67	68.2783
64.60	65.2783
64.13	64.9450
65.47	63.9450
62.93	64.6116
63.53	60.9450
62.13	60.9450
63.87	58.6116
64.67	55.2783
63.33	55.2783
63.13	51.2783
62.80	72.2783
62.40	69.2783
62.40	68.2783
62.60	68.2783
61.47	68.2783
62.20	66.2783
63.00	65.2783
61.80	64.2783
59.73	64.2783
60.33	66.2783
60.13	64.2783
59.53	63.2783
59.00	65.2783
55.93	64.2783
41.87	64.2783
36.33	62.2783
71.67	62.2783
71.47	64.2783
70.47	62.2783
69.53	63.2783
70.73	60.2783
69.93	58.2783
68.73	55.2783
67.53	51.2783




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ yule.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 & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=142176&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]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=142176&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=142176&T=0

As an alternative you can also use a 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'George Udny Yule' @ yule.wessa.net







Kolmogorov_Smirnov Test
StatisticP-value
K-S Test0.11640.15441

\begin{tabular}{lllllllll}
\hline
Kolmogorov_Smirnov Test \tabularnewline
 & Statistic & P-value \tabularnewline
K-S Test & 0.1164 & 0.15441 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=142176&T=1

[TABLE]
[ROW][C]Kolmogorov_Smirnov Test[/C][/ROW]
[ROW][C][/C][C]Statistic[/C][C]P-value[/C][/ROW]
[ROW][C]K-S Test[/C][C]0.1164[/C][C]0.15441[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=142176&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=142176&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Kolmogorov_Smirnov Test
StatisticP-value
K-S Test0.11640.15441







Means of Data Distributions
Mean 1Mean 2Difference
63.5863.580.00021587

\begin{tabular}{lllllllll}
\hline
Means of Data Distributions  \tabularnewline
Mean 1 & Mean 2 & Difference \tabularnewline
63.58 & 63.58 & 0.00021587 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=142176&T=2

[TABLE]
[ROW][C]Means of Data Distributions [/C][/ROW]
[ROW][C]Mean 1[/C][C]Mean 2[/C][C]Difference[/C][/ROW]
[ROW][C]63.58[/C][C]63.58[/C][C]0.00021587[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=142176&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=142176&T=2

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Means of Data Distributions
Mean 1Mean 2Difference
63.5863.580.00021587



Parameters (Session):
par1 = two.sided ; par2 = 1 ; par3 = 2 ;
Parameters (R input):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = ; par5 = ; par6 = ; par7 = ; par8 = ; par9 = ; par10 = ; par11 = ; par12 = ; par13 = ; par14 = ; par15 = ; par16 = ; par17 = ; par18 = ; par19 = ; par20 = ;
R code (references can be found in the software module):
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
x <- t(y)
load(file='createtable')
a<-table.start()
a <- table.row.start(a)
a <- table.element(a,'Kolmogorov_Smirnov 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)
D <- ks.test(x[,par2],x[,par3],alternative=par1)
a<-table.row.start(a)
a<-table.element(a,'K-S Test',1,TRUE)
a<-table.element(a,signif(D$statistic[[1]], digits=5) )
a<-table.element(a,signif(D$p.value, 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,'Means of Data Distributions ',3,TRUE)
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'Mean 1',1,TRUE)
a <- table.element(a,'Mean 2',1,TRUE)
a <- table.element(a,'Difference',1,TRUE)
a <- table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,signif(mean(x[,par2]), digits=5),1)
a<-table.element(a,signif(mean(x[,par3]), digits=5),1)
a<-table.element(a,signif( (mean(x[,par2])- mean(x[,par3])), digits=5),1)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')