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 softwareKolmogorov-Smirnov Test
Date of computationSat, 01 Nov 2014 23:25:56 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Nov/01/t1414884400q0hby9u7fneqbmo.htm/, Retrieved Sun, 19 May 2024 14:41:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=250701, Retrieved Sun, 19 May 2024 14:41:58 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact157
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Wilcoxon-Mann-Whitney Test] [Reddy-Moores Plac...] [2013-10-22 12:31:16] [34296d8f7657c52ed60d5bff9133afec]
- RM    [Wilcoxon-Mann-Whitney Test] [] [2014-10-26 15:14:41] [32b17a345b130fdf5cc88718ed94a974]
- R       [Wilcoxon-Mann-Whitney Test] [] [2014-10-26 15:24:49] [32b17a345b130fdf5cc88718ed94a974]
- R         [Wilcoxon-Mann-Whitney Test] [Mann-Whitney U test] [2014-10-30 17:25:52] [2a42404c3b0fbfc7622e3301a77a3a9b]
- RM          [Kolmogorov-Smirnov Test] [KS Test] [2014-11-01 22:27:07] [2a42404c3b0fbfc7622e3301a77a3a9b]
- R  D            [Kolmogorov-Smirnov Test] [Transformed Data ...] [2014-11-01 23:25:56] [81dd4e4e1a53547628b5dda76e98ea83] [Current]
-    D              [Kolmogorov-Smirnov Test] [2nd KS test, Redd...] [2014-11-12 15:22:36] [2a42404c3b0fbfc7622e3301a77a3a9b]
Feedback Forum

Post a new message
Dataseries X:
70.80	71.14921
69.60	69.94921
69.87	70.21588
67.47	67.81588
67.60	67.94921
67.13	67.48254
66.27	66.61588
66.73	67.08254
68.07	68.41588
67.80	68.14921
64.80	65.14921
64.60	64.94921
64.20	64.54921
64.20	64.54921
63.67	64.01588
61.00	61.34921
59.67	60.01588
59.67	60.01588
59.80	60.14921
60.73	61.08254
59.40	59.74921
58.07	58.41588
57.47	57.81588
70.73	71.08254
72.87	73.21588
66.00	66.34921
66.07	66.41588
66.00	66.34921
66.27	66.61588
64.00	64.34921
63.67	64.01588
63.73	64.08254
63.33	63.68254
63.53	63.88254
63.53	63.88254
62.87	63.21588
59.53	59.88254
62.80	63.14921
60.80	61.14921
59.80	60.14921
56.67	57.01588
57.67	58.01588
58.40	58.74921
55.47	55.81588
56.20	56.54921
71.53	71.88254
68.67	69.01588
65.67	66.01588
66.73	67.08254
67.33	67.68254
66.73	67.08254
66.87	67.21588
65.80	66.14921
64.73	65.08254
65.47	65.81588
63.60	63.94921
64.07	64.41588
64.67	65.01588
63.73	64.08254
62.53	62.88254
61.93	62.28254
62.67	63.01588
62.80	63.14921
61.33	61.68254
62.60	62.94921
59.13	59.48254
61.27	61.61588
59.47	59.81588
57.87	58.21588
59.73	60.08254
61.40	61.74921
58.80	59.14921
58.33	58.68254
57.47	57.81588
57.13	57.48254
55.00	55.34921
51.53	51.88254
72.73	73.08254
73.00	73.34921
70.80	71.14921
70.07	70.41588
71.67	72.01588
71.07	71.41588
70.67	71.01588
70.73	71.08254
70.73	71.08254
68.60	68.94921
69.60	69.94921
66.47	66.81588
67.07	67.41588
68.67	69.01588
66.93	67.28254
65.93	66.28254
68.87	69.21588
66.53	66.88254
65.80	66.14921
66.60	66.94921
66.00	66.34921
65.00	65.34921
66.80	67.14921
65.60	65.94921
66.00	66.34921
65.67	66.01588
64.67	65.01588
65.07	65.41588
64.67	65.01588
65.07	65.41588
65.20	65.54921
64.87	65.21588
63.47	63.81588
62.60	62.94921
64.07	64.41588
63.73	64.08254
64.67	65.01588
61.60	61.94921
61.60	61.94921
60.47	60.81588
61.27	61.61588
63.00	63.34921
61.47	61.81588
60.87	61.21588
61.67	62.01588
62.87	63.21588
62.40	62.74921
59.73	60.08254
60.13	60.48254
58.80	59.14921
59.60	59.94921
58.93	59.28254
60.13	60.48254
58.20	58.54921
58.27	58.61588
58.27	58.61588
55.07	55.41588
53.87	54.21588
52.33	52.68254
47.20	47.54921
37.93	38.28254
72.73	73.08254
70.07	70.41588
70.67	71.01588
72.07	72.41588
68.80	69.14921
68.80	69.14921
67.47	67.81588
66.73	67.08254
66.53	66.88254
66.00	66.34921
67.60	67.94921
66.00	66.34921
66.00	66.34921
66.53	66.88254
65.80	66.14921
64.27	64.61588
64.67	65.01588
64.60	64.94921
64.13	64.48254
65.47	65.81588
62.93	63.28254
63.53	63.88254
62.13	62.48254
63.87	64.21588
64.67	65.01588
63.33	63.68254
63.13	63.48254
62.80	63.14921
62.40	62.74921
62.40	62.74921
62.60	62.94921
61.47	61.81588
62.20	62.54921
63.00	63.34921
61.80	62.14921
59.73	60.08254
60.33	60.68254
60.13	60.48254
59.53	59.88254
59.00	59.34921
55.93	56.28254
41.87	42.21588
36.33	36.68254
71.67	72.01588
71.47	71.81588
70.47	70.81588
69.53	69.88254
70.73	71.08254
69.93	70.28254
68.73	69.08254
67.53	67.88254




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=250701&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'Herman Ole Andreas Wold' @ wold.wessa.net







Kolmogorov_Smirnov Test
StatisticP-value
K-S Test0.0687830.76259

\begin{tabular}{lllllllll}
\hline
Kolmogorov_Smirnov Test \tabularnewline
 & Statistic & P-value \tabularnewline
K-S Test & 0.068783 & 0.76259 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=250701&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.068783[/C][C]0.76259[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=250701&T=1

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







Means of Data Distributions
Mean 1Mean 2Difference
63.5863.929-0.349

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

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



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