Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

Ian.Hollidayrwasp_Reddy-Moores K-S Test.wasp

Title produced by software

Aston University Statistical Software

Date of computation

Thu, 05 Nov 2009 13:42:34 +0100

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/2009/Nov/05/t1257424991rj8gr6xx9lej5ps.htm/, Retrieved Tue, 13 May 2025 11:05:02 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54028, Retrieved Tue, 13 May 2025 11:05:02 +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

237

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Aston University Statistical Software] [Reddy_Moores Wilc...] [2009-11-02 09:28:43] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM D    [Aston University Statistical Software] [week 5 exercise 2...] [2009-11-05 12:42:34] [189ff526829b9a0820a29c498e804802] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

70.8	70.94825
69.6	70.60825
69.87	68.60825
67.47	68.27825
67.6	67.60825
67.13	65.60825
66.27	68.94825
66.73	67.27825
68.07	64.94825
67.8	67.94825
64.8	64.94825
64.6	65.94825
64.2	66.60825
64.2	64.60825
63.67	63.94825
61	64.60825
59.67	63.60825
59.67	62.94825
59.8	62.94825
60.73	63.60825
59.4	61.60825
58.07	63.60825
57.47	60.27825
70.73	57.94825
72.87	62.94825
66	53.60825
66.07	75.60825
66	74.60825
66.27	73.27825
64	70.27825
63.67	70.27825
63.73	67.60825
63.33	69.60825
63.53	68.60825
63.53	68.27825
62.87	65.94825
59.53	67.94825
62.8	68.94825
60.8	65.94825
59.8	66.27825
56.67	65.60825
57.67	67.94825
58.4	65.60825
55.47	66.60825
56.2	63.94825
71.53	63.60825
68.67	65.94825
65.67	62.94825
66.73	62.27825
67.33	60.94825
66.73	63.94825
66.87	62.27825
65.8	61.27825
64.73	61.94825
65.47	62.94825
63.6	59.60825
64.07	60.27825
64.67	59.94825
63.73	57.60825
62.53	57.94825
61.93	55.27825
62.67	51.27825
62.8	8.60825
61.33	74.27825
62.6	72.94825
59.13	71.94825
61.27	70.27825
59.47	69.94825
57.87	69.94825
59.73	67.94825
61.4	67.94825
58.8	68.27825
58.33	66.27825
57.47	66.27825
57.13	65.94825
55	65.94825
51.53	67.60825
72.73	65.27825
73	66.60825
70.8	64.60825
70.07	64.60825
71.67	64.94825
71.07	61.94825
70.67	62.60825
70.73	62.27825
70.73	61.60825
68.6	60.94825
69.6	62.27825
66.47	59.60825
67.07	59.94825
68.67	58.94825
66.93	60.60825
65.93	59.27825
68.87	59.27825
66.53	58.94825
65.8	58.60825
66.6	53.27825
66	52.60825
65	53.94825
66.8	47.94825
65.6	10.60825
66	7.27825
65.67	70.94825
64.67	71.60825
65.07	69.60825
64.67	70.27825
65.07	69.94825
65.2	70.94825
64.87	69.94825
63.47	69.27825
62.6	68.94825
64.07	70.94825
63.73	67.94825
64.67	67.60825
61.6	67.94825
61.6	67.60825
60.47	67.94825
61.27	67.27825
63	65.94825
61.47	65.60825
60.87	64.94825
61.67	64.27825
62.87	65.94825
62.4	65.60825
59.73	62.94825
60.13	64.60825
58.8	63.94825
59.6	63.60825
58.93	63.94825
60.13	65.27825
58.2	65.27825
58.27	64.27825
58.27	64.27825
55.07	62.94825
53.87	62.60825
52.33	62.27825
47.2	60.60825
37.93	58.94825
72.73	59.60825
70.07	58.27825
70.67	56.94825
72.07	48.27825
68.8	69.94825
68.8	69.27825
67.47	70.60825
66.73	68.27825
66.53	66.60825
66	65.60825
67.6	67.27825
66	67.94825
66	66.27825
66.53	65.60825
65.8	68.94825
64.27	66.94825
64.67	68.27825
64.6	65.27825
64.13	64.94825
65.47	63.94825
62.93	64.60825
63.53	60.94825
62.13	60.94825
63.87	58.60825
64.67	55.27825
63.33	55.27825
63.13	51.27825
62.8	72.27825
62.4	69.27825
62.4	68.27825
62.6	68.27825
61.47	68.27825
62.2	66.27825
63	65.27825
61.8	64.27825
59.73	64.27825
60.33	66.27825
60.13	64.27825
59.53	63.27825
59	65.27825
55.93	64.27825
41.87	64.27825
36.33	62.27825
71.67	62.27825
71.47	64.27825
70.47	62.27825
69.53	63.27825
70.73	60.27825
69.93	58.27825
68.73	55.27825
67.53	51.27825

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	'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54028&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54028&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54028&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	'RServer@AstonUniversity' @ vre.aston.ac.uk

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

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

Means of Data Distributions
Mean 1	Mean 2	Difference
63.58011	63.5801	0

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

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

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,round(D$statistic[[1]], digits=5) )
a<-table.element(a,round(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,round(mean(x[,par2]), digits=5),1,TRUE)
a<-table.element(a,round(mean(x[,par3]), digits=5),1,TRUE)
a<-table.element(a,round( (mean(x[,par2])- mean(x[,par3])), digits=5),1,TRUE)
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