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 computationSun, 08 Nov 2009 07:29:47 -0700
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/08/t1257690655i4g3qxhib5gop13.htm/, Retrieved Sat, 04 May 2024 19:31:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54555, Retrieved Sat, 04 May 2024 19:31:40 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact146
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]
- RMPD    [Aston University Statistical Software] [Question 3] [2009-11-08 14:29:47] [d0320cec1021a7468159c5ccef08dea7] [Current]
Feedback Forum

Post a new message
Dataseries X:
70.8	70.94825397
69.6	70.60825397
69.87	68.60825397
67.47	68.27825397
67.6	67.60825397
67.13	65.60825397
66.27	68.94825397
66.73	67.27825397
68.07	64.94825397
67.8	67.94825397
64.8	64.94825397
64.6	65.94825397
64.2	66.60825397
64.2	64.60825397
63.67	63.94825397
61	64.60825397
59.67	63.60825397
59.67	62.94825397
59.8	62.94825397
60.73	63.60825397
59.4	61.60825397
58.07	63.60825397
57.47	60.27825397
70.73	57.94825397
72.87	62.94825397
66	53.60825397
66.07	75.60825397
66	74.60825397
66.27	73.27825397
64	70.27825397
63.67	70.27825397
63.73	67.60825397
63.33	69.60825397
63.53	68.60825397
63.53	68.27825397
62.87	65.94825397
59.53	67.94825397
62.8	68.94825397
60.8	65.94825397
59.8	66.27825397
56.67	65.60825397
57.67	67.94825397
58.4	65.60825397
55.47	66.60825397
56.2	63.94825397
71.53	63.60825397
68.67	65.94825397
65.67	62.94825397
66.73	62.27825397
67.33	60.94825397
66.73	63.94825397
66.87	62.27825397
65.8	61.27825397
64.73	61.94825397
65.47	62.94825397
63.6	59.60825397
64.07	60.27825397
64.67	59.94825397
63.73	57.60825397
62.53	57.94825397
61.93	55.27825397
62.67	51.27825397
62.8	8.608253968
61.33	74.27825397
62.6	72.94825397
59.13	71.94825397
61.27	70.27825397
59.47	69.94825397
57.87	69.94825397
59.73	67.94825397
61.4	67.94825397
58.8	68.27825397
58.33	66.27825397
57.47	66.27825397
57.13	65.94825397
55	65.94825397
51.53	67.60825397
72.73	65.27825397
73	66.60825397
70.8	64.60825397
70.07	64.60825397
71.67	64.94825397
71.07	61.94825397
70.67	62.60825397
70.73	62.27825397
70.73	61.60825397
68.6	60.94825397
69.6	62.27825397
66.47	59.60825397
67.07	59.94825397
68.67	58.94825397
66.93	60.60825397
65.93	59.27825397
68.87	59.27825397
66.53	58.94825397
65.8	58.60825397
66.6	53.27825397
66	52.60825397
65	53.94825397
66.8	47.94825397
65.6	10.60825397
66	7.278253968
65.67	70.94825397
64.67	71.60825397
65.07	69.60825397
64.67	70.27825397
65.07	69.94825397
65.2	70.94825397
64.87	69.94825397
63.47	69.27825397
62.6	68.94825397
64.07	70.94825397
63.73	67.94825397
64.67	67.60825397
61.6	67.94825397
61.6	67.60825397
60.47	67.94825397
61.27	67.27825397
63	65.94825397
61.47	65.60825397
60.87	64.94825397
61.67	64.27825397
62.87	65.94825397
62.4	65.60825397
59.73	62.94825397
60.13	64.60825397
58.8	63.94825397
59.6	63.60825397
58.93	63.94825397
60.13	65.27825397
58.2	65.27825397
58.27	64.27825397
58.27	64.27825397
55.07	62.94825397
53.87	62.60825397
52.33	62.27825397
47.2	60.60825397
37.93	58.94825397
72.73	59.60825397
70.07	58.27825397
70.67	56.94825397
72.07	48.27825397
68.8	69.94825397
68.8	69.27825397
67.47	70.60825397
66.73	68.27825397
66.53	66.60825397
66	65.60825397
67.6	67.27825397
66	67.94825397
66	66.27825397
66.53	65.60825397
65.8	68.94825397
64.27	66.94825397
64.67	68.27825397
64.6	65.27825397
64.13	64.94825397
65.47	63.94825397
62.93	64.60825397
63.53	60.94825397
62.13	60.94825397
63.87	58.60825397
64.67	55.27825397
63.33	55.27825397
63.13	51.27825397
62.8	72.27825397
62.4	69.27825397
62.4	68.27825397
62.6	68.27825397
61.47	68.27825397
62.2	66.27825397
63	65.27825397
61.8	64.27825397
59.73	64.27825397
60.33	66.27825397
60.13	64.27825397
59.53	63.27825397
59	65.27825397
55.93	64.27825397
41.87	64.27825397
36.33	62.27825397
71.67	62.27825397
71.47	64.27825397
70.47	62.27825397
69.53	63.27825397
70.73	60.27825397
69.93	58.27825397
68.73	55.27825397
67.53	51.27825397




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54555&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54555&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54555&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 time0 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







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

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

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

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



Parameters (Session):
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')