Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
67.07 59.9483 68.67 58.9483 66.93 60.6083 65.93 59.2783 68.87 59.2783 66.53 58.9483 65.8 58.6083 66.6 53.2783 66 52.6083 65 53.9483 66.8 47.9483 65.6 10.6083 66 7.2783 65.67 70.9483 64.67 71.6083 65.07 69.6083 64.67 70.2783 65.07 69.9483 65.2 70.9483 64.87 69.9483 63.47 69.2783 62.6 68.9483 64.07 70.9483 63.73 67.9483 64.67 67.6083 61.6 67.9483 61.6 67.6083 60.47 67.9483 61.27 67.2783 63 65.9483 61.47 65.6083 60.87 64.9483 61.67 64.2783 62.87 65.9483 62.4 65.6083 59.73 62.9483 60.13 64.6083 58.8 63.9483 59.6 63.6083 58.93 63.9483 60.13 65.2783 58.2 65.2783 58.27 64.2783 58.27 64.2783 55.07 62.9483 53.87 62.6083 52.33 62.2783 47.2 60.6083 37.93 58.9483 72.73 59.6083 70.07 58.2783 70.67 56.9483 72.07 48.2783 68.8 69.9483 68.8 69.2783 67.47 70.6083 66.73 68.2783 66.53 66.6083 66 65.6083 67.6 67.2783 66 67.9483 66 66.2783 66.53 65.6083 65.8 68.9483 64.27 66.9483 64.67 68.2783 64.6 65.2783 64.13 64.9483 65.47 63.9483 62.93 64.6083 63.53 60.9483 62.13 60.9483 63.87 58.6083 64.67 55.2783 63.33 55.2783 63.13 51.2783 62.8 72.2783 62.4 69.2783 62.4 68.2783 62.6 68.2783 61.47 68.2783 62.2 66.2783 63 65.2783 61.8 64.2783 59.73 64.2783 60.33 66.2783 60.13 64.2783 59.53 63.2783 59 65.2783 55.93 64.2783 41.87 64.2783 36.33 62.2783 71.67 62.2783 71.47 64.2783 70.47 62.2783 69.53 63.2783 70.73 60.2783 69.93 58.2783 68.73 55.2783 67.53 51.2783
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,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')
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