Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
70.8 70.94821 69.6 70.60821 69.87 68.60821 67.47 68.27821 67.6 67.60821 67.13 65.60821 66.27 68.94821 66.73 67.27821 68.07 64.94821 67.8 67.94821 64.8 64.94821 64.6 65.94821 64.2 66.60821 64.2 64.60821 63.67 63.94821 61 64.60821 59.67 63.60821 59.67 62.94821 59.8 62.94821 60.73 63.60821 59.4 61.60821 58.07 63.60821 57.47 60.27821 70.73 57.94821 72.87 62.94821 66 53.60821 66.07 75.60821 66 74.60821 66.27 73.27821 64 70.27821 63.67 70.27821 63.73 67.60821 63.33 69.60821 63.53 68.60821 63.53 68.27821 62.87 65.94821 59.53 67.94821 62.8 68.94821 60.8 65.94821 59.8 66.27821 56.67 65.60821 57.67 67.94821 58.4 65.60821 55.47 66.60821 56.2 63.94821 71.53 63.60821 68.67 65.94821 65.67 62.94821 66.73 62.27821 67.33 60.94821 66.73 63.94821 66.87 62.27821 65.8 61.27821 64.73 61.94821 65.47 62.94821 63.6 59.60821 64.07 60.27821 64.67 59.94821 63.73 57.60821 62.53 57.94821 61.93 55.27821 62.67 51.27821 62.8 8.60821 61.33 74.27821 62.6 72.94821 59.13 71.94821 61.27 70.27821 59.47 69.94821 57.87 69.94821 59.73 67.94821 61.4 67.94821 58.8 68.27821 58.33 66.27821 57.47 66.27821 57.13 65.94821 55 65.94821 51.53 67.60821 72.73 65.27821 73 66.60821 70.8 64.60821 70.07 64.60821 71.67 64.94821 71.07 61.94821 70.67 62.60821 70.73 62.27821 70.73 61.60821 68.6 60.94821 69.6 62.27821 66.47 59.60821 67.07 59.94821 68.67 58.94821 66.93 60.60821 65.93 59.27821 68.87 59.27821 66.53 58.94821 65.8 58.60821 66.6 53.27821 66 52.60821 65 53.94821 66.8 47.94821 65.6 10.60821 66 7.27821 65.67 70.94821 64.67 71.60821 65.07 69.60821 64.67 70.27821 65.07 69.94821 65.2 70.94821 64.87 69.94821 63.47 69.27821 62.6 68.94821 64.07 70.94821 63.73 67.94821 64.67 67.60821 61.6 67.94821 61.6 67.60821 60.47 67.94821 61.27 67.27821 63 65.94821 61.47 65.60821 60.87 64.94821 61.67 64.27821 62.87 65.94821 62.4 65.60821 59.73 62.94821 60.13 64.60821 58.8 63.94821 59.6 63.60821 58.93 63.94821 60.13 65.27821 58.2 65.27821 58.27 64.27821 58.27 64.27821 55.07 62.94821 53.87 62.60821 52.33 62.27821 47.2 60.60821 37.93 58.94821 72.73 59.60821 70.07 58.27821 70.67 56.94821 72.07 48.27821 68.8 69.94821 68.8 69.27821 67.47 70.60821 66.73 68.27821 66.53 66.60821 66 65.60821 67.6 67.27821 66 67.94821 66 66.27821 66.53 65.60821 65.8 68.94821 64.27 66.94821 64.67 68.27821 64.6 65.27821 64.13 64.94821 65.47 63.94821 62.93 64.60821 63.53 60.94821 62.13 60.94821 63.87 58.60821 64.67 55.27821 63.33 55.27821 63.13 51.27821 62.8 72.27821 62.4 69.27821 62.4 68.27821 62.6 68.27821 61.47 68.27821 62.2 66.27821 63 65.27821 61.8 64.27821 59.73 64.27821 60.33 66.27821 60.13 64.27821 59.53 63.27821 59 65.27821 55.93 64.27821 41.87 64.27821 36.33 62.27821 71.67 62.27821 71.47 64.27821 70.47 62.27821 69.53 63.27821 70.73 60.27821 69.93 58.27821 68.73 55.27821 67.53 51.27821
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation