FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_Reddy-Moores K-S Test.wasp
Title produced by softwareKolmogorov-Smirnov Test
Date of computationFri, 01 Jun 2012 05:46:39 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Jun/01/t1338544119bjxhy2dpbicmws7.htm/, Retrieved Sun, 28 Apr 2024 14:32:02 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168419, Retrieved Sun, 28 Apr 2024 14:32:02 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact85

Tree of Dependent Computations

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    [Kolmogorov-Smirnov Test] [Mann-Whitney-Wilc...] [2010-11-02 12:37:15] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM      [Wilcoxon-Mann-Whitney Test] [Mann-Whitney-Wilc...] [2010-11-03 14:20:14] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM        [Aston University Statistical Software] [Mann-Whitney-Wilc...] [2011-11-01 11:14:29] [72617798859a54657cdee39682e42a20]
- RM D        [Aston University Statistical Software] [week 5 compendium] [2011-11-03 12:43:04] [8c387ce24444dc2c0e7d576cfc7658e0]
- R  D          [Aston University Statistical Software] [week 5 compendium] [2011-11-03 12:59:24] [8c387ce24444dc2c0e7d576cfc7658e0]
-   PD              [Kolmogorov-Smirnov Test] [Summer exam] [2012-06-01 09:46:39] [8a88677275c802046fb3e0f3a8bb8474] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
77		77
58		51
53		54
68		70
59		59
76		76
76		77
69		73
71		71
65		64
70		75
166		56
51		52
64		64
52		57
65		66
92		101
62		62
76		75
61		61
119		124
61		61
65		66
66		70
54		59
50		50
63		61
58		60
39		41
101		100
71		71
75		73
79		76
52		52
68		63
64		65
56		54
69		69
88		86
65		67
54		53
80		80
63		59
78		80
85		82
54		55
		
		
54		56
75		75
82		85
56		57
74		73
102		107
		
65		64
66		65
73		74
75		70
57		58
68		69
71		71
71		76
78		75
97		98
60		59
64		63
64		62
52		51
80		76
62		61
66		66
55		54
56		57
50		50
		
50		55
63		64
69		70
69		70
61		60
55		56
53		52
60		55
56		56
59		61
62		66
53		53
57		59
57		56
70		68
56		56
84		86
69		71
88		87
56		57
103		101
50		50
52		52
		
55		55
63		63
47		47
45		45
62		63
53		51
52		51
57		55
64		64
59		55
84		90
79		79
55		57
67		67
76		77
62		62
83		83
96		94
75		76
65		66
78		77
69		73
68		68
55		55
		
52		56
		
45		45
68		68
44		44
62		61
87		89
56		53
50		47
83		84
53		53
64		62
		
90		91
85		83
66		68
52		53
53		55
54		55
64		66
55		55
55		55
59		55
70		67
88		86
57		58
47		47
47		45
		
48		44
54		58
69		68
		
		
57		56
51		50
54		54
53		52
59		58
56		58
59		59
63		62
66		66
96		95
53		50
76		75
		
61		61
		
62		64
71		68
		
66		67
81		82
68		68
80		78
		
		
63		59
70		70
56		56
60		55
58		54
76		75
50		49
88		93
89		86
59		59
51		51
62		61
74		71
83		80
		
90		91
79		81

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
R Framework error message & 
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168419&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168419&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168419&T=0

As an alternative you can also use a QR Code:  
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'Herman Ole Andreas Wold' @ wold.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.






Kolmogorov_Smirnov Test
StatisticP-value
K-S Test0.040.99719

\begin{tabular}{lllllllll}
\hline
Kolmogorov_Smirnov Test \tabularnewline
 & Statistic & P-value \tabularnewline
K-S Test & 0.04 & 0.99719 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168419&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.04[/C][C]0.99719[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168419&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168419&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Kolmogorov_Smirnov Test
StatisticP-value
K-S Test0.040.99719






Means of Data Distributions
Mean 1Mean 2Difference
66.75565.760.995

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168419&T=2

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Means of Data Distributions
Mean 1Mean 2Difference
66.75565.760.995


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 10 ;
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')