Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
91.3 93.33784 73.8 77.93784 67.7 69.23784 102.5 105.13784 106.0 104.13784 112.8 114.33784 98.4 98.13784 114.0 113.63784 95.4 98.13784 97.3 96.73784 101.5 105.03784 102.2 99.43784 84.0 85.73784 117.9 120.13784 112.4 114.93784 79.5 85.33784 101.6 103.43784 89.2 93.33784 84.1 87.13784 108.1 104.03784 103.7 98.83784 103.7 98.63784 85.0 83.13784 106.9 106.83784 127.5 127.83784 114.9 108.43784 87.0 84.93784 107.4 106.63784 90.0 90.73784 83.4 78.13784 99.2 102.33784 126.0 126.33784 83.8 81.03784 81.5 82.03784 103.0 100.33784 103.4 99.13784 88.8 90.13784
Names of X columns:
pment nopment
Alternative
two.sided
two.sided
less
greater
Column number for the first variable
Column number for the second variable
Chart options
R Code
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) 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='mytable1.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation