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

Sun, 21 Oct 2012 16:07:44 -0400

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/2012/Oct/21/t1350850113cwklke6vbhu9duu.htm/, Retrieved Mon, 29 Apr 2024 05:09:00 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=181160, Retrieved Mon, 29 Apr 2024 05:09:00 +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)

-       [Kolmogorov-Smirnov Test] [New K-S Test] [2012-10-21 20:07:44] [f65eb19462419274412ab8bdfa56b119] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

70.80	71.1492
69.60	69.9492
69.87	70.2192
67.47	67.8192
67.60	67.9492
67.13	67.4792
66.27	66.6192
66.73	67.0792
68.07	68.4192
67.80	68.1492
64.80	65.1492
64.60	64.9492
64.20	64.5492
64.20	64.5492
63.67	64.0192
61.00	61.3492
59.67	60.0192
59.67	60.0192
59.80	60.1492
60.73	61.0792
59.40	59.7492
58.07	58.4192
57.47	57.8192
70.73	71.0792
72.87	73.2192
66.00	66.3492
66.07	66.4192
66.00	66.3492
66.27	66.6192
64.00	64.3492
63.67	64.0192
63.73	64.0792
63.33	63.6792
63.53	63.8792
63.53	63.8792
62.87	63.2192
59.53	59.8792
62.80	63.1492
60.80	61.1492
59.80	60.1492
56.67	57.0192
57.67	58.0192
58.40	58.7492
55.47	55.8192
56.20	56.5492
71.53	71.8792
68.67	69.0192
65.67	66.0192
66.73	67.0792
67.33	67.6792
66.73	67.0792
66.87	67.2192
65.80	66.1492
64.73	65.0792
65.47	65.8192
63.60	63.9492
64.07	64.4192
64.67	65.0192
63.73	64.0792
62.53	62.8792
61.93	62.2792
62.67	63.0192
62.80	63.1492
61.33	61.6792
62.60	62.9492
59.13	59.4792
61.27	61.6192
59.47	59.8192
57.87	58.2192
59.73	60.0792
61.40	61.7492
58.80	59.1492
58.33	58.6792
57.47	57.8192
57.13	57.4792
55.00	55.3492
51.53	51.8792
72.73	73.0792
73.00	73.3492
70.80	71.1492
70.07	70.4192
71.67	72.0192
71.07	71.4192
70.67	71.0192
70.73	71.0792
70.73	71.0792
68.60	68.9492
69.60	69.9492
66.47	66.8192
67.07	67.4192
68.67	69.0192
66.93	67.2792
65.93	66.2792
68.87	69.2192
66.53	66.8792
65.80	66.1492
66.60	66.9492
66.00	66.3492
65.00	65.3492
66.80	67.1492
65.60	65.9492
66.00	66.3492
65.67	66.0192
64.67	65.0192
65.07	65.4192
64.67	65.0192
65.07	65.4192
65.20	65.5492
64.87	65.2192
63.47	63.8192
62.60	62.9492
64.07	64.4192
63.73	64.0792
64.67	65.0192
61.60	61.9492
61.60	61.9492
60.47	60.8192
61.27	61.6192
63.00	63.3492
61.47	61.8192
60.87	61.2192
61.67	62.0192
62.87	63.2192
62.40	62.7492
59.73	60.0792
60.13	60.4792
58.80	59.1492
59.60	59.9492
58.93	59.2792
60.13	60.4792
58.20	58.5492
58.27	58.6192
58.27	58.6192
55.07	55.4192
53.87	54.2192
52.33	52.6792
47.20	47.5492
37.93	38.2792
72.73	73.0792
70.07	70.4192
70.67	71.0192
72.07	72.4192
68.80	69.1492
68.80	69.1492
67.47	67.8192
66.73	67.0792
66.53	66.8792
66.00	66.3492
67.60	67.9492
66.00	66.3492
66.00	66.3492
66.53	66.8792
65.80	66.1492
64.27	64.6192
64.67	65.0192
64.60	64.9492
64.13	64.4792
65.47	65.8192
62.93	63.2792
63.53	63.8792
62.13	62.4792
63.87	64.2192
64.67	65.0192
63.33	63.6792
63.13	63.4792
62.80	63.1492
62.40	62.7492
62.40	62.7492
62.60	62.9492
61.47	61.8192
62.20	62.5492
63.00	63.3492
61.80	62.1492
59.73	60.0792
60.33	60.6792
60.13	60.4792
59.53	59.8792
59.00	59.3492
55.93	56.2792
41.87	42.2192
36.33	36.6792
71.67	72.0192
71.47	71.8192
70.47	70.8192
69.53	69.8792
70.73	71.0792
69.93	70.2792
68.73	69.0792
67.53	67.8792

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=181160&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	0 seconds
R Server	'Sir Maurice George Kendall' @ kendall.wessa.net

Kolmogorov_Smirnov Test
	Statistic	P-value
K-S Test	0.068783	0.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=181160&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=181160&T=1

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

Means of Data Distributions
Mean 1	Mean 2	Difference
63.58	63.929	-0.3492

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

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

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