Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_Reddy-Moores K-S Test.wasp
Title produced by softwareAston University Statistical Software
Date of computationThu, 03 Nov 2011 08:49: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/2011/Nov/03/t1320324615nbh095g4aa14m76.htm/, Retrieved Fri, 29 Mar 2024 07:01:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=139285, Retrieved Fri, 29 Mar 2024 07:01:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact70
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 D        [Aston University Statistical Software] [Kolmogorov_Smirno...] [2011-11-03 12:37:00] [bf6019510b5bcef0d7dc6b5e3f13759f]
- R  D            [Aston University Statistical Software] [K-s test new no ment] [2011-11-03 12:49:56] [35322618feb2a0e30523bb6f717fcf1b] [Current]
Feedback Forum

Post a new message
Dataseries X:
70.80	70.9449666666667
69.60	70.6116333333333
69.87	68.6116333333333
67.47	68.2783000000000
67.60	67.6116333333333
67.13	65.6116333333333
66.27	68.9449666666667
66.73	67.2783000000000
68.07	64.9449666666667
67.80	67.9449666666667
64.80	64.9449666666667
64.60	65.9449666666667
64.20	66.6116333333333
64.20	64.6116333333333
63.67	63.9449666666667
61.00	64.6116333333333
59.67	63.6116333333333
59.67	62.9449666666667
59.80	62.9449666666667
60.73	63.6116333333333
59.40	61.6116333333333
58.07	63.6116333333333
57.47	60.2783000000000
70.73	57.9449666666667
72.87	62.9449666666667
66.00	53.6116333333333
66.07	75.6116333333333
66.00	74.6116333333333
66.27	73.2783000000000
64.00	70.2783000000000
63.67	70.2783000000000
63.73	67.6116333333333
63.33	69.6116333333333
63.53	68.6116333333333
63.53	68.2783000000000
62.87	65.9449666666667
59.53	67.9449666666667
62.80	68.9449666666667
60.80	65.9449666666667
59.80	66.2783000000000
56.67	65.6116333333333
57.67	67.9449666666667
58.40	65.6116333333333
55.47	66.6116333333333
56.20	63.9449666666667
71.53	63.6116333333333
68.67	65.9449666666667
65.67	62.9449666666667
66.73	62.2783000000000
67.33	60.9449666666667
66.73	63.9449666666667
66.87	62.2783000000000
65.80	61.2783000000000
64.73	61.9449666666667
65.47	62.9449666666667
63.60	59.6116333333333
64.07	60.2783000000000
64.67	59.9449666666667
63.73	57.6116333333333
62.53	57.9449666666667
61.93	55.2783000000000
62.67	51.2783000000000
62.80	8.6116333333333
61.33	74.2783000000000
62.60	72.9449666666667
59.13	71.9449666666667
61.27	70.2783000000000
59.47	69.9449666666667
57.87	69.9449666666667
59.73	67.9449666666667
61.40	67.9449666666667
58.80	68.2783000000000
58.33	66.2783000000000
57.47	66.2783000000000
57.13	65.9449666666667
55.00	65.9449666666667
51.53	67.6116333333333
72.73	65.2783000000000
73.00	66.6116333333333
70.80	64.6116333333333
70.07	64.6116333333333
71.67	64.9449666666667
71.07	61.9449666666667
70.67	62.6116333333333
70.73	62.2783000000000
70.73	61.6116333333333
68.60	60.9449666666667
69.60	62.2783000000000
66.47	59.6116333333333
67.07	59.9449666666667
68.67	58.9449666666667
66.93	60.6116333333333
65.93	59.2783000000000
68.87	59.2783000000000
66.53	58.9449666666667
65.80	58.6116333333333
66.60	53.2783000000000
66.00	52.6116333333333
65.00	53.9449666666667
66.80	47.9449666666667
65.60	10.6116333333333
66.00	7.2783000000000
65.67	70.9449666666667
64.67	71.6116333333333
65.07	69.6116333333333
64.67	70.2783000000000
65.07	69.9449666666667
65.20	70.9449666666667
64.87	69.9449666666667
63.47	69.2783000000000
62.60	68.9449666666667
64.07	70.9449666666667
63.73	67.9449666666667
64.67	67.6116333333333
61.60	67.9449666666667
61.60	67.6116333333333
60.47	67.9449666666667
61.27	67.2783000000000
63.00	65.9449666666667
61.47	65.6116333333333
60.87	64.9449666666667
61.67	64.2783000000000
62.87	65.9449666666667
62.40	65.6116333333333
59.73	62.9449666666667
60.13	64.6116333333333
58.80	63.9449666666667
59.60	63.6116333333333
58.93	63.9449666666667
60.13	65.2783000000000
58.20	65.2783000000000
58.27	64.2783000000000
58.27	64.2783000000000
55.07	62.9449666666667
53.87	62.6116333333333
52.33	62.2783000000000
47.20	60.6116333333333
37.93	58.9449666666667
72.73	59.6116333333333
70.07	58.2783000000000
70.67	56.9449666666667
72.07	48.2783000000000
68.80	69.9449666666667
68.80	69.2783000000000
67.47	70.6116333333333
66.73	68.2783000000000
66.53	66.6116333333333
66.00	65.6116333333333
67.60	67.2783000000000
66.00	67.9449666666667
66.00	66.2783000000000
66.53	65.6116333333333
65.80	68.9449666666667
64.27	66.9449666666667
64.67	68.2783000000000
64.60	65.2783000000000
64.13	64.9449666666667
65.47	63.9449666666667
62.93	64.6116333333333
63.53	60.9449666666667
62.13	60.9449666666667
63.87	58.6116333333333
64.67	55.2783000000000
63.33	55.2783000000000
63.13	51.2783000000000
62.80	72.2783000000000
62.40	69.2783000000000
62.40	68.2783000000000
62.60	68.2783000000000
61.47	68.2783000000000
62.20	66.2783000000000
63.00	65.2783000000000
61.80	64.2783000000000
59.73	64.2783000000000
60.33	66.2783000000000
60.13	64.2783000000000
59.53	63.2783000000000
59.00	65.2783000000000
55.93	64.2783000000000
41.87	64.2783000000000
36.33	62.2783000000000
71.67	62.2783000000000
71.47	64.2783000000000
70.47	62.2783000000000
69.53	63.2783000000000
70.73	60.2783000000000
69.93	58.2783000000000
68.73	55.2783000000000
67.53	51.2783000000000




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=139285&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]0 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=139285&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=139285&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 time0 seconds
R Server'Gwilym Jenkins' @ jenkins.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=139285&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=139285&T=1

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

\begin{tabular}{lllllllll}
\hline
Means of Data Distributions  \tabularnewline
Mean 1 & Mean 2 & Difference \tabularnewline
63.58 & 63.58 & 0.00021852 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=139285&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.00021852[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=139285&T=2

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



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