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 computationTue, 04 Nov 2014 00:03:50 +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/04/t1415059491s1mrbq3vuk16j8q.htm/, Retrieved Sun, 19 May 2024 21:14:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=251121, Retrieved Sun, 19 May 2024 21:14:55 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact116
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]
- RM        [Kolmogorov-Smirnov Test] [smirnov graph pla...] [2014-10-30 11:49:18] [498ce6f7e8c314381471d55d7e973bf0]
- R  D          [Kolmogorov-Smirnov Test] [KS test with tran...] [2014-11-04 00:03:50] [27b63895f80ff671f0ab66f07c0a42ae] [Current]
Feedback Forum

Post a new message
Dataseries X:
70.8	70.9487
69.6	70.6087
69.87	68.6087
67.47	68.2787
67.6	67.6087
67.13	65.6087
66.27	68.9487
66.73	67.2787
68.07	64.9487
67.8	67.9487
64.8	64.9487
64.6	65.9487
64.2	66.6087
64.2	64.6087
63.67	63.9487
61	64.6087
59.67	63.6087
59.67	62.9487
59.8	62.9487
60.73	63.6087
59.4	61.6087
58.07	63.6087
57.47	60.2787
70.73	57.9487
72.87	62.9487
66	53.6087
66.07	75.6087
66	74.6087
66.27	73.2787
64	70.2787
63.67	70.2787
63.73	67.6087
63.33	69.6087
63.53	68.6087
63.53	68.2787
62.87	65.9487
59.53	67.9487
62.8	68.9487
60.8	65.9487
59.8	66.2787
56.67	65.6087
57.67	67.9487
58.4	65.6087
55.47	66.6087
56.2	63.9487
71.53	63.6087
68.67	65.9487
65.67	62.9487
66.73	62.2787
67.33	60.9487
66.73	63.9487
66.87	62.2787
65.8	61.2787
64.73	61.9487
65.47	62.9487
63.6	59.6087
64.07	60.2787
64.67	59.9487
63.73	57.6087
62.53	57.9487
61.93	55.2787
62.67	51.2787
62.8	8.6087
61.33	74.2787
62.6	72.9487
59.13	71.9487
61.27	70.2787
59.47	69.9487
57.87	69.9487
59.73	67.9487
61.4	67.9487
58.8	68.2787
58.33	66.2787
57.47	66.2787
57.13	65.9487
55	65.9487
51.53	67.6087
72.73	65.2787
73	66.6087
70.8	64.6087
70.07	64.6087
71.67	64.9487
71.07	61.9487
70.67	62.6087
70.73	62.2787
70.73	61.6087
68.6	60.9487
69.6	62.2787
66.47	59.6087
67.07	59.9487
68.67	58.9487
66.93	60.6087
65.93	59.2787
68.87	59.2787
66.53	58.9487
65.8	58.6087
66.6	53.2787
66	52.6087
65	53.9487
66.8	47.9487
65.6	10.6087
66	7.2787
65.67	70.9487
64.67	71.6087
65.07	69.6087
64.67	70.2787
65.07	69.9487
65.2	70.9487
64.87	69.9487
63.47	69.2787
62.6	68.9487
64.07	70.9487
63.73	67.9487
64.67	67.6087
61.6	67.9487
61.6	67.6087
60.47	67.9487
61.27	67.2787
63	65.9487
61.47	65.6087
60.87	64.9487
61.67	64.2787
62.87	65.9487
62.4	65.6087
59.73	62.9487
60.13	64.6087
58.8	63.9487
59.6	63.6087
58.93	63.9487
60.13	65.2787
58.2	65.2787
58.27	64.2787
58.27	64.2787
55.07	62.9487
53.87	62.6087
52.33	62.2787
47.2	60.6087
37.93	58.9487
72.73	59.6087
70.07	58.2787
70.67	56.9487
72.07	48.2787
68.8	69.9487
68.8	69.2787
67.47	70.6087
66.73	68.2787
66.53	66.6087
66	65.6087
67.6	67.2787
66	67.9487
66	66.2787
66.53	65.6087
65.8	68.9487
64.27	66.9487
64.67	68.2787
64.6	65.2787
64.13	64.9487
65.47	63.9487
62.93	64.6087
63.53	60.9487
62.13	60.9487
63.87	58.6087
64.67	55.2787
63.33	55.2787
63.13	51.2787
62.8	72.2787
62.4	69.2787
62.4	68.2787
62.6	68.2787
61.47	68.2787
62.2	66.2787
63	65.2787
61.8	64.2787
59.73	64.2787
60.33	66.2787
60.13	64.2787
59.53	63.2787
59	65.2787
55.93	64.2787
41.87	64.2787
36.33	62.2787
71.67	62.2787
71.47	64.2787
70.47	62.2787
69.53	63.2787
70.73	60.2787
69.93	58.2787
68.73	55.2787
67.53	51.2787




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

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

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

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

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



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