Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
70.80 70.94496667 69.60 70.61163333 69.87 68.61163333 67.47 68.2783 67.60 67.61163333 67.13 65.61163333 66.27 68.94496667 66.73 67.2783 68.07 64.94496667 67.80 67.94496667 64.80 64.94496667 64.60 65.94496667 64.20 66.61163333 64.20 64.61163333 63.67 63.94496667 61.00 64.61163333 59.67 63.61163333 59.67 62.94496667 59.80 62.94496667 60.73 63.61163333 59.40 61.61163333 58.07 63.61163333 57.47 60.2783 70.73 57.94496667 72.87 62.94496667 66.00 53.61163333 66.07 75.61163333 66.00 74.61163333 66.27 73.2783 64.00 70.2783 63.67 70.2783 63.73 67.61163333 63.33 69.61163333 63.53 68.61163333 63.53 68.2783 62.87 65.94496667 59.53 67.94496667 62.80 68.94496667 60.80 65.94496667 59.80 66.2783 56.67 65.61163333 57.67 67.94496667 58.40 65.61163333 55.47 66.61163333 56.20 63.94496667 71.53 63.61163333 68.67 65.94496667 65.67 62.94496667 66.73 62.2783 67.33 60.94496667 66.73 63.94496667 66.87 62.2783 65.80 61.2783 64.73 61.94496667 65.47 62.94496667 63.60 59.61163333 64.07 60.2783 64.67 59.94496667 63.73 57.61163333 62.53 57.94496667 61.93 55.2783 62.67 51.2783 62.80 8.611633333 61.33 74.2783 62.60 72.94496667 59.13 71.94496667 61.27 70.2783 59.47 69.94496667 57.87 69.94496667 59.73 67.94496667 61.40 67.94496667 58.80 68.2783 58.33 66.2783 57.47 66.2783 57.13 65.94496667 55.00 65.94496667 51.53 67.61163333 72.73 65.2783 73.00 66.61163333 70.80 64.61163333 70.07 64.61163333 71.67 64.94496667 71.07 61.94496667 70.67 62.61163333 70.73 62.2783 70.73 61.61163333 68.60 60.94496667 69.60 62.2783 66.47 59.61163333 67.07 59.94496667 68.67 58.94496667 66.93 60.61163333 65.93 59.2783 68.87 59.2783 66.53 58.94496667 65.80 58.61163333 66.60 53.2783 66.00 52.61163333 65.00 53.94496667 66.80 47.94496667 65.60 10.61163333 66.00 7.2783 65.67 70.94496667 64.67 71.61163333 65.07 69.61163333 64.67 70.2783 65.07 69.94496667 65.20 70.94496667 64.87 69.94496667 63.47 69.2783 62.60 68.94496667 64.07 70.94496667 63.73 67.94496667 64.67 67.61163333 61.60 67.94496667 61.60 67.61163333 60.47 67.94496667 61.27 67.2783 63.00 65.94496667 61.47 65.61163333 60.87 64.94496667 61.67 64.2783 62.87 65.94496667 62.40 65.61163333 59.73 62.94496667 60.13 64.61163333 58.80 63.94496667 59.60 63.61163333 58.93 63.94496667 60.13 65.2783 58.20 65.2783 58.27 64.2783 58.27 64.2783 55.07 62.94496667 53.87 62.61163333 52.33 62.2783 47.20 60.61163333 37.93 58.94496667 72.73 59.61163333 70.07 58.2783 70.67 56.94496667 72.07 48.2783 68.80 69.94496667 68.80 69.2783 67.47 70.61163333 66.73 68.2783 66.53 66.61163333 66.00 65.61163333 67.60 67.2783 66.00 67.94496667 66.00 66.2783 66.53 65.61163333 65.80 68.94496667 64.27 66.94496667 64.67 68.2783 64.60 65.2783 64.13 64.94496667 65.47 63.94496667 62.93 64.61163333 63.53 60.94496667 62.13 60.94496667 63.87 58.61163333 64.67 55.2783 63.33 55.2783 63.13 51.2783 62.80 72.2783 62.40 69.2783 62.40 68.2783 62.60 68.2783 61.47 68.2783 62.20 66.2783 63.00 65.2783 61.80 64.2783 59.73 64.2783 60.33 66.2783 60.13 64.2783 59.53 63.2783 59.00 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 nopmentadj
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