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, 29 Oct 2013 08:57:38 -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/2013/Oct/29/t13830514714ykpmr6n05kvvry.htm/, Retrieved Mon, 29 Apr 2024 19:34:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=220572, Retrieved Mon, 29 Apr 2024 19:34:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact63
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kolmogorov-Smirnov Test] [compendium 3 exce...] [2013-10-29 12:57:38] [b1b1bcc66952dde3bf42bd39ee12c88e] [Current]
Feedback Forum

Post a new message
Dataseries X:
69.6	66.68
69.87	64.68
67.47	64.35
67.6	63.68
67.13	61.68
66.27	65.02
66.73	63.35
68.07	61.02
67.8	64.02
64.8	61.02
64.6	62.02
64.2	62.68
64.2	60.68
63.67	60.02
61	60.68
59.67	59.68
59.67	59.02
59.8	59.02
60.73	59.68
59.4	57.68
58.07	59.68
57.47	56.35
70.73	54.02
72.87	59.02
66	49.68
66.07	71.68
66	70.68
66.27	69.35
64	66.35
63.67	66.35
63.73	63.68
63.33	65.68
63.53	64.68
63.53	64.35
62.87	62.02
59.53	64.02
62.8	65.02
60.8	62.02
59.8	62.35
56.67	61.68
57.67	64.02
58.4	61.68
55.47	62.68
56.2	60.02
71.53	59.68
68.67	62.02
65.67	59.02
66.73	58.35
67.33	57.02
66.73	60.02
66.87	58.35
65.8	57.35
64.73	58.02
65.47	59.02
63.6	55.68
64.07	56.35
64.67	56.02
63.73	53.68
62.53	54.02
61.93	51.35
62.67	47.35
62.8	4.68
61.33	70.35
62.6	69.02
59.13	68.02
61.27	66.35
59.47	66.02
57.87	66.02
59.73	64.02
61.4	64.02
58.8	64.35
58.33	62.35
57.47	62.35
57.13	62.02
55	62.02
51.53	63.68
72.73	61.35
73	62.68
70.8	60.68
70.07	60.68
71.67	61.02
71.07	58.02
70.67	58.68
70.73	58.35
70.73	57.68
68.6	57.02
69.6	58.35
66.47	55.68
67.07	56.02
68.67	55.02
66.93	56.68
65.93	55.35
68.87	55.35
66.53	55.02
65.8	54.68
66.6	49.35
66	48.68
65	50.02
66.8	44.02
65.6	6.68
66	3.35
65.67	67.02
64.67	67.68
65.07	65.68
64.67	66.35
65.07	66.02
65.2	67.02
64.87	66.02
63.47	65.35
62.6	65.02
64.07	67.02
63.73	64.02
64.67	63.68
61.6	64.02
61.6	63.68
60.47	64.02
61.27	63.35
63	62.02
61.47	61.68
60.87	61.02
61.67	60.35
62.87	62.02
62.4	61.68
59.73	59.02
60.13	60.68
58.8	60.02
59.6	59.68
58.93	60.02
60.13	61.35
58.2	61.35
58.27	60.35
58.27	60.35
55.07	59.02
53.87	58.68
52.33	58.35
47.2	56.68
37.93	55.02
72.73	55.68
70.07	54.35
70.67	53.02
72.07	44.35
68.8	66.02
68.8	65.35
67.47	66.68
66.73	64.35
66.53	62.68
66	61.68
67.6	63.35
66	64.02
66	62.35
66.53	61.68
65.8	65.02
64.27	63.02
64.67	64.35
64.6	61.35
64.13	61.02
65.47	60.02
62.93	60.68
63.53	57.02
62.13	57.02
63.87	54.68
64.67	51.35
63.33	51.35
63.13	47.35
62.8	68.35
62.4	65.35
62.4	64.35
62.6	64.35
61.47	64.35
62.2	62.35
63	61.35
61.8	60.35
59.73	60.35
60.33	62.35
60.13	60.35
59.53	59.35
59	61.35
55.93	60.35
41.87	60.35
36.33	58.35
71.67	58.35
71.47	60.35
70.47	58.35
69.53	59.35
70.73	56.35
69.93	54.35
68.73	51.35
67.53	47.35




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' @ 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 & 1 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=220572&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' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=220572&T=0

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







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

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

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







Means of Data Distributions
Mean 1Mean 2Difference
63.54259.6133.929

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

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



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