Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_Reddy-Moores K-S Test.wasp

Title produced by software

Kolmogorov-Smirnov Test

Date of computation

Fri, 31 Oct 2014 15:59:06 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Oct/31/t1414771206oiqxbgjjvoezq6z.htm/, Retrieved Mon, 13 May 2024 19:56:08 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=250642, Retrieved Mon, 13 May 2024 19:56:08 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

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        [Kolmogorov-Smirnov Test] [K-S Test (with re...] [2014-10-31 15:59:06] [3d0dbc8258988813e7bb9165f912c4e6] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

70.8	62.3917
69.6	62.0517
69.87	60.0517
67.47	59.7217
67.6	59.0517
67.13	57.0517
66.27	60.3917
66.73	58.7217
68.07	56.3917
67.8	59.3917
64.8	56.3917
64.6	57.3917
64.2	58.0517
64.2	56.0517
63.67	55.3917
61	56.0517
59.67	55.0517
59.67	54.3917
59.8	54.3917
60.73	55.0517
59.4	53.0517
58.07	55.0517
57.47	51.7217
70.73	49.3917
72.87	54.3917
66	45.0517
66.07	67.0517
66	66.0517
66.27	64.7217
64	61.7217
63.67	61.7217
63.73	59.0517
63.33	61.0517
63.53	60.0517
63.53	59.7217
62.87	57.3917
59.53	59.3917
62.8	60.3917
60.8	57.3917
59.8	57.7217
56.67	57.0517
57.67	59.3917
58.4	57.0517
55.47	58.0517
56.2	55.3917
71.53	55.0517
68.67	57.3917
65.67	54.3917
66.73	53.7217
67.33	52.3917
66.73	55.3917
66.87	53.7217
65.8	52.7217
64.73	53.3917
65.47	54.3917
63.6	51.0517
64.07	51.7217
64.67	51.3917
63.73	49.0517
62.53	49.3917
61.93	46.7217
62.67	42.7217
62.8	0.0517
61.33	65.7217
62.6	64.3917
59.13	63.3917
61.27	61.7217
59.47	61.3917
57.87	61.3917
59.73	59.3917
61.4	59.3917
58.8	59.7217
58.33	57.7217
57.47	57.7217
57.13	57.3917
55	57.3917
51.53	59.0517
72.73	56.7217
73	58.0517
70.8	56.0517
70.07	56.0517
71.67	56.3917
71.07	53.3917
70.67	54.0517
70.73	53.7217
70.73	53.0517
68.6	52.3917
69.6	53.7217
66.47	51.0517
67.07	51.3917
68.67	50.3917
66.93	52.0517
65.93	50.7217
68.87	50.7217
66.53	50.3917
65.8	50.0517
66.6	44.7217
66	44.0517
65	45.3917
66.8	39.3917
65.6	2.0517
66	-1.2783
65.67	62.3917
64.67	63.0517
65.07	61.0517
64.67	61.7217
65.07	61.3917
65.2	62.3917
64.87	61.3917
63.47	60.7217
62.6	60.3917
64.07	62.3917
63.73	59.3917
64.67	59.0517
61.6	59.3917
61.6	59.0517
60.47	59.3917
61.27	58.7217
63	57.3917
61.47	57.0517
60.87	56.3917
61.67	55.7217
62.87	57.3917
62.4	57.0517
59.73	54.3917
60.13	56.0517
58.8	55.3917
59.6	55.0517
58.93	55.3917
60.13	56.7217
58.2	56.7217
58.27	55.7217
58.27	55.7217
55.07	54.3917
53.87	54.0517
52.33	53.7217
47.2	52.0517
37.93	50.3917
72.73	51.0517
70.07	49.7217
70.67	48.3917
72.07	39.7217
68.8	61.3917
68.8	60.7217
67.47	62.0517
66.73	59.7217
66.53	58.0517
66	57.0517
67.6	58.7217
66	59.3917
66	57.7217
66.53	57.0517
65.8	60.3917
64.27	58.3917
64.67	59.7217
64.6	56.7217
64.13	56.3917
65.47	55.3917
62.93	56.0517
63.53	52.3917
62.13	52.3917
63.87	50.0517
64.67	46.7217
63.33	46.7217
63.13	42.7217
62.8	63.7217
62.4	60.7217
62.4	59.7217
62.6	59.7217
61.47	59.7217
62.2	57.7217
63	56.7217
61.8	55.7217
59.73	55.7217
60.33	57.7217
60.13	55.7217
59.53	54.7217
59	56.7217
55.93	55.7217
41.87	55.7217
36.33	53.7217
71.67	53.7217
71.47	55.7217
70.47	53.7217
69.53	54.7217
70.73	51.7217
69.93	49.7217
68.73	46.7217
67.53	42.7217

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Sir Ronald Aylmer Fisher' @ fisher.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 & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=250642&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=250642&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=250642&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

Kolmogorov_Smirnov Test
	Statistic	P-value
K-S Test	0.62963	0

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=250642&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
	Statistic	P-value
K-S Test	0.62963	0

Means of Data Distributions
Mean 1	Mean 2	Difference
63.58	55.024	8.5566

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=250642&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 1	Mean 2	Difference
63.58	55.024	8.5566

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code