x <- array(list(-2.67,-6.5,9.67,-7.33,-6,49.33,28.33,-11,12,-8.33,-11.3,9,3,2.33,-4.67,-12.3,-5,5.67,2.33,-2,37.67,1.33,7.5,-13,5,-5.67,30,-4,15.33,2),dim=c(2,15),dimnames=list(c('FRAD','MRAD'),1:15))
 y <- array(NA,dim=c(2,15),dimnames=list(c('FRAD','MRAD'),1:15))
 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'
#'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
#Author: Dr. Ian E. Holliday
#To cite this work: Ian E. Holliday, 2009, YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/
#Source of accompanying publication: 
#Technical description: 
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
x <- t(y)

#Note: the /var/www/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
load(file="/var/www/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)
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="/var/www/wessaorg/rcomp/tmp/1pq301306838359.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)
a<-table.element(a,round(mean(x[,par3]), digits=5),1)
a<-table.element(a,round( (mean(x[,par2])- mean(x[,par3])), digits=5),1)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file="/var/www/wessaorg/rcomp/tmp/2vddj1306838359.tab")