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 07:13:37 -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/09/t12577760957swu450jeoz0q9e.htm/, Retrieved Thu, 28 Mar 2024 10:32:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54831, Retrieved Thu, 28 Mar 2024 10:32:20 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact174
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] [compendiumweek5_k...] [2009-11-09 14:13:37] [fd4f510ca22152ae67cc1e51e700ce02] [Current]
-           [Aston University Statistical Software] [] [2009-11-10 14:49:10] [0848a45f8a904661abc16c2a3570ded4]
Feedback Forum

Post a new message
Dataseries X:
70.8	70.94826
69.6	70.60826
69.87	68.60826
67.47	68.27826
67.6	67.60826
67.13	65.60826
66.27	68.94826
66.73	67.27826
68.07	64.94826
67.8	67.94826
64.8	64.94826
64.6	65.94826
64.2	66.60826
64.2	64.60826
63.67	63.94826
61	64.60826
59.67	63.60826
59.67	62.94826
59.8	62.94826
60.73	63.60826
59.4	61.60826
58.07	63.60826
57.47	60.27826
70.73	57.94826
72.87	62.94826
66	53.60826
66.07	75.60826
66	74.60826
66.27	73.27826
64	70.27826
63.67	70.27826
63.73	67.60826
63.33	69.60826
63.53	68.60826
63.53	68.27826
62.87	65.94826
59.53	67.94826
62.8	68.94826
60.8	65.94826
59.8	66.27826
56.67	65.60826
57.67	67.94826
58.4	65.60826
55.47	66.60826
56.2	63.94826
71.53	63.60826
68.67	65.94826
65.67	62.94826
66.73	62.27826
67.33	60.94826
66.73	63.94826
66.87	62.27826
65.8	61.27826
64.73	61.94826
65.47	62.94826
63.6	59.60826
64.07	60.27826
64.67	59.94826
63.73	57.60826
62.53	57.94826
61.93	55.27826
62.67	51.27826
62.8	8.60826
61.33	74.27826
62.6	72.94826
59.13	71.94826
61.27	70.27826
59.47	69.94826
57.87	69.94826
59.73	67.94826
61.4	67.94826
58.8	68.27826
58.33	66.27826
57.47	66.27826
57.13	65.94826
55	65.94826
51.53	67.60826
72.73	65.27826
73	66.60826
70.8	64.60826
70.07	64.60826
71.67	64.94826
71.07	61.94826
70.67	62.60826
70.73	62.27826
70.73	61.60826
68.6	60.94826
69.6	62.27826
66.47	59.60826
67.07	59.94826
68.67	58.94826
66.93	60.60826
65.93	59.27826
68.87	59.27826
66.53	58.94826
65.8	58.60826
66.6	53.27826
66	52.60826
65	53.94826
66.8	47.94826
65.6	10.60826
66	7.27826
65.67	70.94826
64.67	71.60826
65.07	69.60826
64.67	70.27826
65.07	69.94826
65.2	70.94826
64.87	69.94826
63.47	69.27826
62.6	68.94826
64.07	70.94826
63.73	67.94826
64.67	67.60826
61.6	67.94826
61.6	67.60826
60.47	67.94826
61.27	67.27826
63	65.94826
61.47	65.60826
60.87	64.94826
61.67	64.27826
62.87	65.94826
62.4	65.60826
59.73	62.94826
60.13	64.60826
58.8	63.94826
59.6	63.60826
58.93	63.94826
60.13	65.27826
58.2	65.27826
58.27	64.27826
58.27	64.27826
55.07	62.94826
53.87	62.60826
52.33	62.27826
47.2	60.60826
37.93	58.94826
72.73	59.60826
70.07	58.27826
70.67	56.94826
72.07	48.27826
68.8	69.94826
68.8	69.27826
67.47	70.60826
66.73	68.27826
66.53	66.60826
66	65.60826
67.6	67.27826
66	67.94826
66	66.27826
66.53	65.60826
65.8	68.94826
64.27	66.94826
64.67	68.27826
64.6	65.27826
64.13	64.94826
65.47	63.94826
62.93	64.60826
63.53	60.94826
62.13	60.94826
63.87	58.60826
64.67	55.27826
63.33	55.27826
63.13	51.27826
62.8	72.27826
62.4	69.27826
62.4	68.27826
62.6	68.27826
61.47	68.27826
62.2	66.27826
63	65.27826
61.8	64.27826
59.73	64.27826
60.33	66.27826
60.13	64.27826
59.53	63.27826
59	65.27826
55.93	64.27826
41.87	64.27826
36.33	62.27826
71.67	62.27826
71.47	64.27826
70.47	62.27826
69.53	63.27826
70.73	60.27826
69.93	58.27826
68.73	55.27826
67.53	51.27826




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=54831&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=54831&T=0

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

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

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

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



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