R version 2.15.1 (2012-06-22) -- "Roasted Marshmallows"
Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i686-pc-linux-gnu (32-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> x <- array(list(70.80
+ ,70.9449666666667
+ ,69.60
+ ,70.6116333333333
+ ,69.87
+ ,68.6116333333333
+ ,69.16
+ ,68.2783000000000
+ ,68.69
+ ,67.6116333333333
+ ,68.22
+ ,65.6116333333333
+ ,67.76
+ ,68.9449666666667
+ ,67.29
+ ,67.2783000000000
+ ,66.82
+ ,64.9449666666667
+ ,66.36
+ ,67.9449666666667
+ ,65.89
+ ,64.9449666666667
+ ,65.42
+ ,65.9449666666667
+ ,64.96
+ ,66.6116333333333
+ ,64.49
+ ,64.6116333333333
+ ,64.02
+ ,63.9449666666667
+ ,63.56
+ ,64.6116333333333
+ ,63.09
+ ,63.6116333333333
+ ,62.62
+ ,62.9449666666667
+ ,62.16
+ ,62.9449666666667
+ ,61.69
+ ,63.6116333333333
+ ,61.22
+ ,61.6116333333333
+ ,60.76
+ ,63.6116333333333
+ ,60.29
+ ,60.2783000000000
+ ,59.82
+ ,57.9449666666667
+ ,59.36
+ ,62.9449666666667
+ ,58.89
+ ,53.6116333333333
+ ,58.42
+ ,75.6116333333333
+ ,57.96
+ ,74.6116333333333
+ ,57.49
+ ,73.2783000000000
+ ,57.02
+ ,70.2783000000000
+ ,56.56
+ ,70.2783000000000
+ ,56.09
+ ,67.6116333333333
+ ,55.62
+ ,69.6116333333333
+ ,55.16
+ ,68.6116333333333
+ ,54.69
+ ,68.2783000000000
+ ,54.22
+ ,65.9449666666667
+ ,53.76
+ ,67.9449666666667
+ ,53.29
+ ,68.9449666666667
+ ,52.82
+ ,65.9449666666667
+ ,52.36
+ ,66.2783000000000
+ ,51.89
+ ,65.6116333333333
+ ,51.42
+ ,67.9449666666667
+ ,50.96
+ ,65.6116333333333
+ ,50.49
+ ,66.6116333333333
+ ,50.02
+ ,63.9449666666667
+ ,49.56
+ ,63.6116333333333
+ ,49.09
+ ,65.9449666666667
+ ,48.62
+ ,62.9449666666667
+ ,48.16
+ ,62.2783000000000
+ ,47.69
+ ,60.9449666666667
+ ,47.22
+ ,63.9449666666667
+ ,46.76
+ ,62.2783000000000
+ ,46.29
+ ,61.2783000000000
+ ,45.82
+ ,61.9449666666667
+ ,45.36
+ ,62.9449666666667
+ ,44.89
+ ,59.6116333333333
+ ,44.42
+ ,60.2783000000000
+ ,43.96
+ ,59.9449666666667
+ ,43.49
+ ,57.6116333333333
+ ,43.02
+ ,57.9449666666667
+ ,42.56
+ ,55.2783000000000
+ ,42.09
+ ,51.2783000000000
+ ,41.62
+ ,8.6116333333333
+ ,41.16
+ ,74.2783000000000
+ ,40.69
+ ,72.9449666666667
+ ,40.22
+ ,71.9449666666667
+ ,39.76
+ ,70.2783000000000
+ ,39.29
+ ,69.9449666666667
+ ,38.82
+ ,69.9449666666667
+ ,38.36
+ ,67.9449666666667
+ ,37.89
+ ,67.9449666666667
+ ,37.42
+ ,68.2783000000000
+ ,36.96
+ ,66.2783000000000
+ ,36.49
+ ,66.2783000000000
+ ,36.02
+ ,65.9449666666667
+ ,35.56
+ ,65.9449666666667
+ ,35.09
+ ,67.6116333333333
+ ,34.62
+ ,65.2783000000000
+ ,34.16
+ ,66.6116333333333
+ ,33.69
+ ,64.6116333333333
+ ,33.22
+ ,64.6116333333333
+ ,32.76
+ ,64.9449666666667
+ ,32.29
+ ,61.9449666666667
+ ,31.82
+ ,62.6116333333333
+ ,31.36
+ ,62.2783000000000
+ ,30.89
+ ,61.6116333333333
+ ,30.42
+ ,60.9449666666667
+ ,29.96
+ ,62.2783000000000
+ ,29.49
+ ,59.6116333333333
+ ,29.02
+ ,59.9449666666667
+ ,28.56
+ ,58.9449666666667
+ ,28.09
+ ,60.6116333333333
+ ,27.62
+ ,59.2783000000000
+ ,27.16
+ ,59.2783000000000
+ ,26.69
+ ,58.9449666666667
+ ,26.22
+ ,58.6116333333333
+ ,25.76
+ ,53.2783000000000
+ ,25.29
+ ,52.6116333333333
+ ,24.82
+ ,53.9449666666667
+ ,24.36
+ ,47.9449666666667
+ ,23.89
+ ,10.6116333333333
+ ,23.42
+ ,7.2783000000000
+ ,22.96
+ ,70.9449666666667
+ ,22.49
+ ,71.6116333333333
+ ,22.02
+ ,69.6116333333333
+ ,21.56
+ ,70.2783000000000
+ ,21.09
+ ,69.9449666666667
+ ,20.62
+ ,70.9449666666667
+ ,20.16
+ ,69.9449666666667
+ ,19.69
+ ,69.2783000000000
+ ,19.22
+ ,68.9449666666667
+ ,18.76
+ ,70.9449666666667
+ ,18.29
+ ,67.9449666666667
+ ,17.82
+ ,67.6116333333333
+ ,17.36
+ ,67.9449666666667
+ ,16.89
+ ,67.6116333333333
+ ,16.42
+ ,67.9449666666667
+ ,15.96
+ ,67.2783000000000
+ ,15.49
+ ,65.9449666666667
+ ,15.02
+ ,65.6116333333333
+ ,14.56
+ ,64.9449666666667
+ ,14.09
+ ,64.2783000000000
+ ,13.62
+ ,65.9449666666667
+ ,13.16
+ ,65.6116333333333
+ ,12.69
+ ,62.9449666666667
+ ,12.22
+ ,64.6116333333333
+ ,11.76
+ ,63.9449666666667
+ ,11.29
+ ,63.6116333333333
+ ,10.82
+ ,63.9449666666667
+ ,10.36
+ ,65.2783000000000
+ ,9.89
+ ,65.2783000000000
+ ,9.42
+ ,64.2783000000000
+ ,8.96
+ ,64.2783000000000
+ ,8.49
+ ,62.9449666666667
+ ,8.02
+ ,62.6116333333333
+ ,7.56
+ ,62.2783000000000
+ ,7.09
+ ,60.6116333333333
+ ,6.62
+ ,58.9449666666667
+ ,6.16
+ ,59.6116333333333
+ ,5.69
+ ,58.2783000000000
+ ,5.22
+ ,56.9449666666667
+ ,4.76
+ ,48.2783000000000
+ ,4.29
+ ,69.9449666666667
+ ,3.82
+ ,69.2783000000000
+ ,3.36
+ ,70.6116333333333
+ ,2.89
+ ,68.2783000000000
+ ,2.42
+ ,66.6116333333333
+ ,1.96
+ ,65.6116333333333
+ ,1.49
+ ,67.2783000000000
+ ,1.02
+ ,67.9449666666667
+ ,0.56
+ ,66.2783000000000
+ ,0.09
+ ,65.6116333333333
+ ,-0.38
+ ,68.9449666666667
+ ,-0.84
+ ,66.9449666666667
+ ,-1.31
+ ,68.2783000000000
+ ,-1.78
+ ,65.2783000000000
+ ,-2.24
+ ,64.9449666666667
+ ,-2.71
+ ,63.9449666666667
+ ,-3.18
+ ,64.6116333333333
+ ,-3.64
+ ,60.9449666666667
+ ,-4.11
+ ,60.9449666666667
+ ,-4.58
+ ,58.6116333333333
+ ,-5.04
+ ,55.2783000000000
+ ,-5.51
+ ,55.2783000000000
+ ,-5.98
+ ,51.2783000000000
+ ,-6.44
+ ,72.2783000000000
+ ,-6.91
+ ,69.2783000000000
+ ,-7.38
+ ,68.2783000000000
+ ,-7.84
+ ,68.2783000000000
+ ,-8.31
+ ,68.2783000000000
+ ,-8.78
+ ,66.2783000000000
+ ,-9.24
+ ,65.2783000000000
+ ,-9.71
+ ,64.2783000000000
+ ,-10.18
+ ,64.2783000000000
+ ,-10.64
+ ,66.2783000000000
+ ,-11.11
+ ,64.2783000000000
+ ,-11.58
+ ,63.2783000000000
+ ,-12.04
+ ,65.2783000000000
+ ,-12.51
+ ,64.2783000000000
+ ,-12.98
+ ,64.2783000000000
+ ,-13.44
+ ,62.2783000000000
+ ,-13.91
+ ,62.2783000000000
+ ,-14.38
+ ,64.2783000000000
+ ,-14.84
+ ,62.2783000000000
+ ,-15.31
+ ,63.2783000000000
+ ,-15.78
+ ,60.2783000000000
+ ,-16.24
+ ,58.2783000000000
+ ,-16.71
+ ,55.2783000000000
+ ,-17.18
+ ,51.2783000000000)
+ ,dim=c(2
+ ,189)
+ ,dimnames=list(c('pment'
+ ,'nopment')
+ ,1:189))
>  y <- array(NA,dim=c(2,189),dimnames=list(c('pment','nopment'),1:189))
>  for (i in 1:dim(x)[1])
+  {
+  	for (j in 1:dim(x)[2])
+  	{
+  		y[i,j] <- as.numeric(x[i,j])
+  	}
+  }
> par3 = '2'
> par2 = '1'
> par1 = 'two.sided'
> par3 <- '2'
> par2 <- '1'
> par1 <- 'two.sided'
> #'GNU S' R Code compiled by R2WASP v. 1.2.291 ()
> #Author: aston2
> #To cite this work: Ian E. Holliday, 2012, Kolmogorov-Smirnov Test (v1.0.3) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_Reddy-Moores%20K-S%20Test.wasp/
> #Source of accompanying publication: 
> #
> par2 <- as.numeric(par2)
> par3 <- as.numeric(par3)
> x <- t(y)
> 
> #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/wessaorg/rcomp/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)
Warning message:
In ks.test(x[, par2], x[, par3], alternative = par1) :
  p-values will be approximate in the presence of ties
> 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="/var/wessaorg/rcomp/tmp/1bgvh1350986906.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="/var/wessaorg/rcomp/tmp/2s9t71350986906.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.430   0.117   0.515