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 computationSun, 02 Nov 2014 15:40:42 +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/02/t14149428535oxca1v69bq7h60.htm/, Retrieved Sun, 19 May 2024 20:15:22 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=250759, Retrieved Sun, 19 May 2024 20:15:22 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact108
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 D      [Boxplot and Trimmed Means] [workshop3] [2014-11-02 15:24:27] [52d5a1bad551f592964666f38a2c9843]
- RM D          [Kolmogorov-Smirnov Test] [] [2014-11-02 15:40:42] [5f28cf9a34f23a9c754e4cf7754f5111] [Current]
Feedback Forum

Post a new message
Dataseries X:
70.8	70.3292
69.6	69.9892
69.87	67.9892
67.47	67.6592
67.6	66.9892
67.13	64.9892
66.27	68.3292
66.73	66.6592
68.07	64.3292
67.8	67.3292
64.8	64.3292
64.6	65.3292
64.2	65.9892
64.2	63.9892
63.67	63.3292
61	63.9892
59.67	62.9892
59.67	62.3292
59.8	62.3292
60.73	62.9892
59.4	60.9892
58.07	62.9892
57.47	59.6592
70.73	57.3292
72.87	62.3292
66	52.9892
66.07	74.9892
66	73.9892
66.27	72.6592
64	69.6592
63.67	69.6592
63.73	66.9892
63.33	68.9892
63.53	67.9892
63.53	67.6592
62.87	65.3292
59.53	67.3292
62.8	68.3292
60.8	65.3292
59.8	65.6592
56.67	64.9892
57.67	67.3292
58.4	64.9892
55.47	65.9892
56.2	63.3292
71.53	62.9892
68.67	65.3292
65.67	62.3292
66.73	61.6592
67.33	60.3292
66.73	63.3292
66.87	61.6592
65.8	60.6592
64.73	61.3292
65.47	62.3292
63.6	58.9892
64.07	59.6592
64.67	59.3292
63.73	56.9892
62.53	57.3292
61.93	54.6592
62.67	50.6592
62.8	7.9892
61.33	73.6592
62.6	72.3292
59.13	71.3292
61.27	69.6592
59.47	69.3292
57.87	69.3292
59.73	67.3292
61.4	67.3292
58.8	67.6592
58.33	65.6592
57.47	65.6592
57.13	65.3292
55	65.3292
51.53	66.9892
72.73	64.6592
73	65.9892
70.8	63.9892
70.07	63.9892
71.67	64.3292
71.07	61.3292
70.67	61.9892
70.73	61.6592
70.73	60.9892
68.6	60.3292
69.6	61.6592
66.47	58.9892
67.07	59.3292
68.67	58.3292
66.93	59.9892
65.93	58.6592
68.87	58.6592
66.53	58.3292
65.8	57.9892
66.6	52.6592
66	51.9892
65	53.3292
66.8	47.3292
65.6	9.9892
66	6.6592
65.67	70.3292
64.67	70.9892
65.07	68.9892
64.67	69.6592
65.07	69.3292
65.2	70.3292
64.87	69.3292
63.47	68.6592
62.6	68.3292
64.07	70.3292
63.73	67.3292
64.67	66.9892
61.6	67.3292
61.6	66.9892
60.47	67.3292
61.27	66.6592
63	65.3292
61.47	64.9892
60.87	64.3292
61.67	63.6592
62.87	65.3292
62.4	64.9892
59.73	62.3292
60.13	63.9892
58.8	63.3292
59.6	62.9892
58.93	63.3292
60.13	64.6592
58.2	64.6592
58.27	63.6592
58.27	63.6592
55.07	62.3292
53.87	61.9892
52.33	61.6592
47.2	59.9892
37.93	58.3292
72.73	58.9892
70.07	57.6592
70.67	56.3292
72.07	47.6592
68.8	69.3292
68.8	68.6592
67.47	69.9892
66.73	67.6592
66.53	65.9892
66	64.9892
67.6	66.6592
66	67.3292
66	65.6592
66.53	64.9892
65.8	68.3292
64.27	66.3292
64.67	67.6592
64.6	64.6592
64.13	64.3292
65.47	63.3292
62.93	63.9892
63.53	60.3292
62.13	60.3292
63.87	57.9892
64.67	54.6592
63.33	54.6592
63.13	50.6592
62.8	71.6592
62.4	68.6592
62.4	67.6592
62.6	67.6592
61.47	67.6592
62.2	65.6592
63	64.6592
61.8	63.6592
59.73	63.6592
60.33	65.6592
60.13	63.6592
59.53	62.6592
59	64.6592
55.93	63.6592
41.87	63.6592
36.33	61.6592
71.67	61.6592
71.47	63.6592
70.47	61.6592
69.53	62.6592
70.73	59.6592
69.93	57.6592
68.73	54.6592
67.53	50.6592




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=250759&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' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=250759&T=0

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







Kolmogorov_Smirnov Test
StatisticP-value
K-S Test0.0687830.76259

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

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







Means of Data Distributions
Mean 1Mean 2Difference
63.5862.9610.61905

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

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



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