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 computationThu, 18 Oct 2012 12:49:00 -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/18/t1350578996fcynau6fq2tbndo.htm/, Retrieved Mon, 29 Apr 2024 07:08:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=179737, Retrieved Mon, 29 Apr 2024 07:08:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact83
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Wilcoxon-Mann-Whitney Test] [RM-data Wilcoxon ...] [2012-10-16 15:11:25] [98fd0e87c3eb04e0cc2efde01dbafab6]
-       [Wilcoxon-Mann-Whitney Test] [RM-data Wilcoxon ...] [2012-10-16 15:25:54] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM D      [Kolmogorov-Smirnov Test] [Placement vs NoPl...] [2012-10-18 16:49:00] [abfb337281be42b450cef391e295e18d] [Current]
Feedback Forum

Post a new message
Dataseries X:
70.8	70.9573
69.6	70.6173
69.87	68.6173
67.47	68.2873
67.6	67.6173
67.13	65.6173
66.27	68.9573
66.73	67.2873
68.07	64.9573
67.8	67.9573
64.8	64.9573
64.6	65.9573
64.2	66.6173
64.2	64.6173
63.67	63.9573
61	64.6173
59.67	63.6173
59.67	62.9573
59.8	62.9573
60.73	63.6173
59.4	61.6173
58.07	63.6173
57.47	60.2873
70.73	57.9573
72.87	62.9573
66	53.6173
66.07	75.6173
66	74.6173
66.27	73.2873
64	70.2873
63.67	70.2873
63.73	67.6173
63.33	69.6173
63.53	68.6173
63.53	68.2873
62.87	65.9573
59.53	67.9573
62.8	68.9573
60.8	65.9573
59.8	66.2873
56.67	65.6173
57.67	67.9573
58.4	65.6173
55.47	66.6173
56.2	63.9573
71.53	63.6173
68.67	65.9573
65.67	62.9573
66.73	62.2873
67.33	60.9573
66.73	63.9573
66.87	62.2873
65.8	61.2873
64.73	61.9573
65.47	62.9573
63.6	59.6173
64.07	60.2873
64.67	59.9573
63.73	57.6173
62.53	57.9573
61.93	55.2873
62.67	51.2873
62.8	8.6173
61.33	74.2873
62.6	72.9573
59.13	71.9573
61.27	70.2873
59.47	69.9573
57.87	69.9573
59.73	67.9573
61.4	67.9573
58.8	68.2873
58.33	66.2873
57.47	66.2873
57.13	65.9573
55	65.9573
51.53	67.6173
72.73	65.2873
73	66.6173
70.8	64.6173
70.07	64.6173
71.67	64.9573
71.07	61.9573
70.67	62.6173
70.73	62.2873
70.73	61.6173
68.6	60.9573
69.6	62.2873
66.47	59.6173
67.07	59.9573
68.67	58.9573
66.93	60.6173
65.93	59.2873
68.87	59.2873
66.53	58.9573
65.8	58.6173
66.6	53.2873
66	52.6173
65	53.9573
66.8	47.9573
65.6	10.6173
66	7.2873
65.67	70.9573
64.67	71.6173
65.07	69.6173
64.67	70.2873
65.07	69.9573
65.2	70.9573
64.87	69.9573
63.47	69.2873
62.6	68.9573
64.07	70.9573
63.73	67.9573
64.67	67.6173
61.6	67.9573
61.6	67.6173
60.47	67.9573
61.27	67.2873
63	65.9573
61.47	65.6173
60.87	64.9573
61.67	64.2873
62.87	65.9573
62.4	65.6173
59.73	62.9573
60.13	64.6173
58.8	63.9573
59.6	63.6173
58.93	63.9573
60.13	65.2873
58.2	65.2873
58.27	64.2873
58.27	64.2873
55.07	62.9573
53.87	62.6173
52.33	62.2873
47.2	60.6173
37.93	58.9573
72.73	59.6173
70.07	58.2873
70.67	56.9573
72.07	48.2873
68.8	69.9573
68.8	69.2873
67.47	70.6173
66.73	68.2873
66.53	66.6173
66	65.6173
67.6	67.2873
66	67.9573
66	66.2873
66.53	65.6173
65.8	68.9573
64.27	66.9573
64.67	68.2873
64.6	65.2873
64.13	64.9573
65.47	63.9573
62.93	64.6173
63.53	60.9573
62.13	60.9573
63.87	58.6173
64.67	55.2873
63.33	55.2873
63.13	51.2873
62.8	72.2873
62.4	69.2873
62.4	68.2873
62.6	68.2873
61.47	68.2873
62.2	66.2873
63	65.2873
61.8	64.2873
59.73	64.2873
60.33	66.2873
60.13	64.2873
59.53	63.2873
59	65.2873
55.93	64.2873
41.87	64.2873
36.33	62.2873
71.67	62.2873
71.47	64.2873
70.47	62.2873
69.53	63.2873
70.73	60.2873
69.93	58.2873
68.73	55.2873
67.53	51.2873




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

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

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

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

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



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