Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_Reddy-Moores K-S Test.wasp
Title produced by softwareAston University Statistical Software
Date of computationMon, 07 Nov 2011 08:17:37 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/07/t1320672002g3vkcsk41ddzrim.htm/, Retrieved Fri, 01 Nov 2024 00:34:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=140133, Retrieved Fri, 01 Nov 2024 00:34:06 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact151
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Aston University Statistical Software] [Kolmogorov_Smirno...] [2011-11-07 12:50:31] [74be16979710d4c4e7c6647856088456]
- R  D    [Aston University Statistical Software] [New KS test ] [2011-11-07 13:17:37] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
70.80	70.945
69.60	70.612
69.87	68.612
67.47	68.278
67.60	67.612
67.13	65.612
66.27	68.945
66.73	67.278
68.07	64.945
67.80	67.945
64.80	64.945
64.60	65.945
64.20	66.612
64.20	64.612
63.67	63.945
61.00	64.612
59.67	63.612
59.67	62.945
59.80	62.945
60.73	63.612
59.40	61.612
58.07	63.612
57.47	60.278
70.73	57.945
72.87	62.945
66.00	53.612
66.07	75.612
66.00	74.612
66.27	73.278
64.00	70.278
63.67	70.278
63.73	67.612
63.33	69.612
63.53	68.612
63.53	68.278
62.87	65.945
59.53	67.945
62.80	68.945
60.80	65.945
59.80	66.278
56.67	65.612
57.67	67.945
58.40	65.612
55.47	66.612
56.20	63.945
71.53	63.612
68.67	65.945
65.67	62.945
66.73	62.278
67.33	60.945
66.73	63.945
66.87	62.278
65.80	61.278
64.73	61.945
65.47	62.945
63.60	59.612
64.07	60.278
64.67	59.945
63.73	57.612
62.53	57.945
61.93	55.278
62.67	51.278
62.80	8.612
61.33	74.278
62.60	72.945
59.13	71.945
61.27	70.278
59.47	69.945
57.87	69.945
59.73	67.945
61.40	67.945
58.80	68.278
58.33	66.278
57.47	66.278
57.13	65.945
55.00	65.945
51.53	67.612
72.73	65.278
73.00	66.612
70.80	64.612
70.07	64.612
71.67	64.945
71.07	61.945
70.67	62.612
70.73	62.278
70.73	61.612
68.60	60.945
69.60	62.278
66.47	59.612
67.07	59.945
68.67	58.945
66.93	60.612
65.93	59.278
68.87	59.278
66.53	58.945
65.80	58.612
66.60	53.278
66.00	52.612
65.00	53.945
66.80	47.945
65.60	10.612
66.00	7.278
65.67	70.945
64.67	71.612
65.07	69.612
64.67	70.278
65.07	69.945
65.20	70.945
64.87	69.945
63.47	69.278
62.60	68.945
64.07	70.945
63.73	67.945
64.67	67.612
61.60	67.945
61.60	67.612
60.47	67.945
61.27	67.278
63.00	65.945
61.47	65.612
60.87	64.945
61.67	64.278
62.87	65.945
62.40	65.612
59.73	62.945
60.13	64.612
58.80	63.945
59.60	63.612
58.93	63.945
60.13	65.278
58.20	65.278
58.27	64.278
58.27	64.278
55.07	62.945
53.87	62.612
52.33	62.278
47.20	60.612
37.93	58.945
72.73	59.612
70.07	58.278
70.67	56.945
72.07	48.278
68.80	69.945
68.80	69.278
67.47	70.612
66.73	68.278
66.53	66.612
66.00	65.612
67.60	67.278
66.00	67.945
66.00	66.278
66.53	65.612
65.80	68.945
64.27	66.945
64.67	68.278
64.60	65.278
64.13	64.945
65.47	63.945
62.93	64.612
63.53	60.945
62.13	60.945
63.87	58.612
64.67	55.278
63.33	55.278
63.13	51.278
62.80	72.278
62.40	69.278
62.40	68.278
62.60	68.278
61.47	68.278
62.20	66.278
63.00	65.278
61.80	64.278
59.73	64.278
60.33	66.278
60.13	64.278
59.53	63.278
59.00	65.278
55.93	64.278
41.87	64.278
36.33	62.278
71.67	62.278
71.47	64.278
70.47	62.278
69.53	63.278
70.73	60.278
69.93	58.278
68.73	55.278
67.53	51.278




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=140133&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=140133&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=140133&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'Gertrude Mary Cox' @ cox.wessa.net







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

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

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

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



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,signif(D$statistic[[1]], digits=5) )
a<-table.element(a,signif(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,signif(mean(x[,par2]), digits=5),1)
a<-table.element(a,signif(mean(x[,par3]), digits=5),1)
a<-table.element(a,signif( (mean(x[,par2])- mean(x[,par3])), digits=5),1)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')