Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software ModuleIan.Hollidayrwasp_Reddy-Moores K-S Test.wasp
Title produced by softwareAston University Statistical Software
Date of computationWed, 09 Dec 2009 01:56:21 -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/Dec/09/t1260349141tvz9xvgqo4ck3zh.htm/, Retrieved Mon, 29 Apr 2024 11:44:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=64892, Retrieved Mon, 29 Apr 2024 11:44:56 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact134
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    [Aston University Statistical Software] [] [2009-11-05 15:02:41] [5767bd6424518d00d47b9a54e25f82fa]
-    D      [Aston University Statistical Software] [patelm27 shapiro ...] [2009-12-09 08:56:21] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
66.67	66.52174603
66.33	65.32174603
64.33	65.59174603
64	63.19174603
63.33	63.32174603
61.33	62.85174603
64.67	61.99174603
63	62.45174603
60.67	63.79174603
63.67	63.52174603
60.67	60.52174603
61.67	60.32174603
62.33	59.92174603
60.33	59.92174603
59.67	59.39174603
60.33	56.72174603
59.33	55.39174603
58.67	55.39174603
58.67	55.52174603
59.33	56.45174603
57.33	55.12174603
59.33	53.79174603
56	53.19174603
53.67	66.45174603
58.67	68.59174603
49.33	61.72174603
71.33	61.79174603
70.33	61.72174603
69	61.99174603
66	59.72174603
66	59.39174603
63.33	59.45174603
65.33	59.05174603
64.33	59.25174603
64	59.25174603
61.67	58.59174603
63.67	55.25174603
64.67	58.52174603
61.67	56.52174603
62	55.52174603
61.33	52.39174603
63.67	53.39174603
61.33	54.12174603
62.33	51.19174603
59.67	51.92174603
59.33	67.25174603
61.67	64.39174603
58.67	61.39174603
58	62.45174603
56.67	63.05174603
59.67	62.45174603
58	62.59174603
57	61.52174603
57.67	60.45174603
58.67	61.19174603
55.33	59.32174603
56	59.79174603
55.67	60.39174603
53.33	59.45174603
53.67	58.25174603
51	57.65174603
47	58.39174603
4.33	58.52174603
70	57.05174603
68.67	58.32174603
67.67	54.85174603
66	56.99174603
65.67	55.19174603
65.67	53.59174603
63.67	55.45174603
63.67	57.12174603
64	54.52174603
62	54.05174603
62	53.19174603
61.67	52.85174603
61.67	50.72174603
63.33	47.25174603
61	68.45174603
62.33	68.72174603
60.33	66.52174603
60.33	65.79174603
60.67	67.39174603
57.67	66.79174603
58.33	66.39174603
58	66.45174603
57.33	66.45174603
56.67	64.32174603
58	65.32174603
55.33	62.19174603
55.67	62.79174603
54.67	64.39174603
56.33	62.65174603
55	61.65174603
55	64.59174603
54.67	62.25174603
54.33	61.52174603
49	62.32174603
48.33	61.72174603
49.67	60.72174603
43.67	62.52174603
6.33	61.32174603
3	61.72174603
66.67	61.39174603
67.33	60.39174603
65.33	60.79174603
66	60.39174603
65.67	60.79174603
66.67	60.92174603
65.67	60.59174603
65	59.19174603
64.67	58.32174603
66.67	59.79174603
63.67	59.45174603
63.33	60.39174603
63.67	57.32174603
63.33	57.32174603
63.67	56.19174603
63	56.99174603
61.67	58.72174603
61.33	57.19174603
60.67	56.59174603
60	57.39174603
61.67	58.59174603
61.33	58.12174603
58.67	55.45174603
60.33	55.85174603
59.67	54.52174603
59.33	55.32174603
59.67	54.65174603
61	55.85174603
61	53.92174603
60	53.99174603
60	53.99174603
58.67	50.79174603
58.33	49.59174603
58	48.05174603
56.33	42.92174603
54.67	33.65174603
55.33	68.45174603
54	65.79174603
52.67	66.39174603
44	67.79174603
65.67	64.52174603
65	64.52174603
66.33	63.19174603
64	62.45174603
62.33	62.25174603
61.33	61.72174603
63	63.32174603
63.67	61.72174603
62	61.72174603
61.33	62.25174603
64.67	61.52174603
62.67	59.99174603
64	60.39174603
61	60.32174603
60.67	59.85174603
59.67	61.19174603
60.33	58.65174603
56.67	59.25174603
56.67	57.85174603
54.33	59.59174603
51	60.39174603
51	59.05174603
47	58.85174603
68	58.52174603
65	58.12174603
64	58.12174603
64	58.32174603
64	57.19174603
62	57.92174603
61	58.72174603
60	57.52174603
60	55.45174603
62	56.05174603
60	55.85174603
59	55.25174603
61	54.72174603
60	51.65174603
60	37.59174603
58	32.05174603
58	67.39174603
60	67.19174603
58	66.19174603
59	65.25174603
56	66.45174603
54	65.65174603
51	64.45174603
47	63.25174603




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=64892&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=64892&T=0

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

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

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

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



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