Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software ModuleIan.Hollidayrwasp_Reddy-Moores K-S Test.wasp
Title produced by softwareKolmogorov-Smirnov Test
Date of computationTue, 23 Oct 2012 04:19:15 -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/2012/Oct/23/t1350980392ebanbjda1yndi6v.htm/, Retrieved Thu, 02 May 2024 12:53:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=182653, Retrieved Thu, 02 May 2024 12:53:11 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact147
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        [Wilcoxon-Mann-Whitney Test] [WS3 Placement gro...] [2012-10-15 22:34:53] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM D          [Kolmogorov-Smirnov Test] [transformed] [2012-10-23 08:19:15] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
70.8	67.01921
69.6	66.67921
69.87	64.67921
67.47	64.34921
67.6	63.67921
67.13	61.67921
66.27	65.01921
66.73	63.34921
68.07	61.01921
67.8	64.01921
64.8	61.01921
64.6	62.01921
64.2	62.67921
64.2	60.67921
63.67	60.01921
61	60.67921
59.67	59.67921
59.67	59.01921
59.8	59.01921
60.73	59.67921
59.4	57.67921
58.07	58.98079
57.47	56.34921
70.73	54.01921
72.87	59.01921
66	49.67921
66.07	70.98079
66	69.98079
66.27	68.65079
64	65.65079
63.67	65.65079
63.73	63.67921
63.33	64.98079
63.53	63.98079
63.53	63.65079
62.87	62.01921
59.53	63.32079
62.8	64.32079
60.8	61.32079
59.8	61.65079
56.67	60.98079
57.67	63.32079
58.4	60.98079
55.47	61.98079
56.2	59.32079
71.53	59.67921
68.67	62.01921
65.67	59.01921
66.73	58.34921
67.33	57.01921
66.73	60.01921
66.87	58.34921
65.8	57.34921
64.73	58.01921
65.47	59.01921
63.6	55.67921
64.07	56.34921
64.67	56.01921
63.73	53.67921
62.53	54.01921
61.93	51.34921
62.67	47.34921
62.8	4.67921
61.33	69.65079
62.6	68.32079
59.13	67.32079
61.27	65.65079
59.47	65.32079
57.87	65.32079
59.73	63.32079
61.4	63.32079
58.8	63.65079
58.33	61.65079
57.47	61.65079
57.13	61.32079
55	61.32079
51.53	62.98079
72.73	61.34921
73	62.67921
70.8	60.67921
70.07	60.67921
71.67	61.01921
71.07	58.01921
70.67	58.67921
70.73	58.34921
70.73	57.67921
68.6	57.01921
69.6	58.34921
66.47	55.67921
67.07	56.01921
68.67	55.01921
66.93	56.67921
65.93	55.34921
68.87	55.34921
66.53	55.01921
65.8	54.67921
66.6	49.34921
66	48.67921
65	50.01921
66.8	44.01921
65.6	6.67921
66	3.34921
65.67	66.32079
64.67	66.98079
65.07	64.98079
64.67	65.65079
65.07	65.32079
65.2	66.32079
64.87	65.32079
63.47	64.65079
62.6	64.32079
64.07	66.32079
63.73	63.32079
64.67	63.67921
61.6	63.32079
61.6	62.98079
60.47	63.32079
61.27	62.65079
63	62.01921
61.47	61.67921
60.87	61.01921
61.67	60.34921
62.87	62.01921
62.4	61.67921
59.73	59.01921
60.13	59.98079
58.8	59.32079
59.6	59.67921
58.93	59.32079
60.13	60.65079
58.2	60.65079
58.27	59.65079
58.27	59.65079
55.07	58.32079
53.87	57.98079
52.33	57.65079
47.2	55.98079
37.93	54.32079
72.73	55.67921
70.07	54.34921
70.67	53.01921
72.07	44.34921
68.8	66.01921
68.8	65.34921
67.47	66.67921
66.73	64.34921
66.53	62.67921
66	61.67921
67.6	63.34921
66	64.01921
66	62.34921
66.53	61.67921
65.8	65.01921
64.27	63.01921
64.67	64.34921
64.6	61.34921
64.13	61.01921
65.47	60.01921
62.93	60.67921
63.53	57.01921
62.13	57.01921
63.87	54.67921
64.67	51.34921
63.33	51.34921
63.13	47.34921
62.8	67.65079
62.4	64.65079
62.4	63.65079
62.6	63.65079
61.47	63.65079
62.2	62.34921
63	61.34921
61.8	60.34921
59.73	59.65079
60.33	61.65079
60.13	60.34921
59.53	59.34921
59	60.65079
55.93	59.65079
41.87	59.65079
36.33	57.65079
71.67	58.34921
71.47	60.34921
70.47	58.34921
69.53	59.34921
70.73	56.34921
69.93	54.34921
68.73	51.34921
67.53	47.34921




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Herman Ole Andreas Wold' @ www.yougetit.org

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

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







Kolmogorov_Smirnov Test
StatisticP-value
K-S Test0.333331.5165e-09

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

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







Means of Data Distributions
Mean 1Mean 2Difference
63.5859.3924.1877

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

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



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