Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software ModuleIan.Hollidayrwasp_Reddy-Moores K-S Test.wasp
Title produced by softwareKolmogorov-Smirnov Test
Date of computationSat, 06 Nov 2010 22:55:04 +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/2010/Nov/06/t1289084098idrsgld9y8kex42.htm/, Retrieved Sat, 04 May 2024 11:03:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=92491, Retrieved Sat, 04 May 2024 11:03:37 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact125
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]
- RMPD      [CARE Data - Boxplots and Scatterplot Matrix] [Not CARE] [2010-11-06 21:32:59] [d418e7de1099d56e55644d2682c4d34e]
- RM D        [Kolmogorov-Smirnov Test] [K-S1] [2010-11-06 22:38:00] [d418e7de1099d56e55644d2682c4d34e]
-    D            [Kolmogorov-Smirnov Test] [K-S2] [2010-11-06 22:55:04] [0e9fc3f205dd1fcd931218b429eb95ca] [Current]
Feedback Forum

Post a new message
Dataseries X:
70.8	70.2067
69.6	69.8667
69.87	67.8667
67.47	67.5367
67.6	66.8667
67.13	64.8667
66.27	68.2067
66.73	66.5367
68.07	64.2067
67.8	67.2067
64.8	64.2067
64.6	65.2067
64.2	65.8667
64.2	63.8667
63.67	63.2067
61	63.8667
59.67	62.8667
59.67	62.2067
59.8	62.2067
60.73	62.8667
59.4	60.8667
58.07	62.8667
57.47	59.5367
70.73	57.2067
72.87	62.2067
66	52.8667
66.07	74.8667
66	73.8667
66.27	72.5367
64	69.5367
63.67	69.5367
63.73	66.8667
63.33	68.8667
63.53	67.8667
63.53	67.5367
62.87	65.2067
59.53	67.2067
62.8	68.2067
60.8	65.2067
59.8	65.5367
56.67	64.8667
57.67	67.2067
58.4	64.8667
55.47	65.8667
56.2	63.2067
71.53	62.8667
68.67	65.2067
65.67	62.2067
66.73	61.5367
67.33	60.2067
66.73	63.2067
66.87	61.5367
65.8	60.5367
64.73	61.2067
65.47	62.2067
63.6	58.8667
64.07	59.5367
64.67	59.2067
63.73	56.8667
62.53	57.2067
61.93	54.5367
62.67	50.5367
62.8	7.8667
61.33	73.5367
62.6	72.2067
59.13	71.2067
61.27	69.5367
59.47	69.2067
57.87	69.2067
59.73	67.2067
61.4	67.2067
58.8	67.5367
58.33	65.5367
57.47	65.5367
57.13	65.2067
55	65.2067
51.53	66.8667
72.73	64.5367
73	65.8667
70.8	63.8667
70.07	63.8667
71.67	64.2067
71.07	61.2067
70.67	61.8667
70.73	61.5367
70.73	60.8667
68.6	60.2067
69.6	61.5367
66.47	58.8667
67.07	59.2067
68.67	58.2067
66.93	59.8667
65.93	58.5367
68.87	58.5367
66.53	58.2067
65.8	57.8667
66.6	52.5367
66	51.8667
65	53.2067
66.8	47.2067
65.6	9.8667
66	6.5367
65.67	70.2067
64.67	70.8667
65.07	68.8667
64.67	69.5367
65.07	69.2067
65.2	70.2067
64.87	69.2067
63.47	68.5367
62.6	68.2067
64.07	70.2067
63.73	67.2067
64.67	66.8667
61.6	67.2067
61.6	66.8667
60.47	67.2067
61.27	66.5367
63	65.2067
61.47	64.8667
60.87	64.2067
61.67	63.5367
62.87	65.2067
62.4	64.8667
59.73	62.2067
60.13	63.8667
58.8	63.2067
59.6	62.8667
58.93	63.2067
60.13	64.5367
58.2	64.5367
58.27	63.5367
58.27	63.5367
55.07	62.2067
53.87	61.8667
52.33	61.5367
47.2	59.8667
37.93	58.2067
72.73	58.8667
70.07	57.5367
70.67	56.2067
72.07	47.5367
68.8	69.2067
68.8	68.5367
67.47	69.8667
66.73	67.5367
66.53	65.8667
66	64.8667
67.6	66.5367
66	67.2067
66	65.5367
66.53	64.8667
65.8	68.2067
64.27	66.2067
64.67	67.5367
64.6	64.5367
64.13	64.2067
65.47	63.2067
62.93	63.8667
63.53	60.2067
62.13	60.2067
63.87	57.8667
64.67	54.5367
63.33	54.5367
63.13	50.5367
62.8	71.5367
62.4	68.5367
62.4	67.5367
62.6	67.5367
61.47	67.5367
62.2	65.5367
63	64.5367
61.8	63.5367
59.73	63.5367
60.33	65.5367
60.13	63.5367
59.53	62.5367
59	64.5367
55.93	63.5367
41.87	63.5367
36.33	61.5367
71.67	61.5367
71.47	63.5367
70.47	61.5367
69.53	62.5367
70.73	59.5367
69.93	57.5367
68.73	54.5367
67.53	50.5367




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=92491&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' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=92491&T=0

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







Kolmogorov_Smirnov Test
StatisticP-value
K-S Test0.0582010.9061

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

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







Means of Data Distributions
Mean 1Mean 2Difference
63.5862.8390.74155

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

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



Parameters (Session):
par1 = 3 ; par2 = TRUE ; par3 = 0 ;
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')