Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software ModuleIan.Hollidayrwasp_Reddy-Moores K-S Test.wasp
Title produced by softwareAston University Statistical Software
Date of computationMon, 09 Nov 2009 17:48:30 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/09/t1257785343s5ffkmmevgemtma.htm/, Retrieved Thu, 28 Mar 2024 17:00:22 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54863, Retrieved Thu, 28 Mar 2024 17:00:22 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact158
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] [The K-S test of t...] [2009-11-09 16:48:30] [a8c1abf24142a1db957dce14eaff8cef] [Current]
Feedback Forum

Post a new message
Dataseries X:
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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54863&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54863&T=0

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







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=54863&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=54863&T=1

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

\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=54863&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=54863&T=2

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



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