Wessa.net

Send output to:

Data X:
77 77 58 51 53 54 68 70 59 59 76 76 76 77 69 73 71 71 65 64 70 75 166 56 51 52 64 64 52 57 65 66 92 101 62 62 76 75 61 61 119 124 61 61 65 66 66 70 54 59 50 50 63 61 58 60 39 41 101 100 71 71 75 73 79 76 52 52 68 63 64 65 56 54 69 69 88 86 65 67 54 53 80 80 63 59 78 80 85 82 54 55 54 56 75 75 82 85 56 57 74 73 102 107 65 64 66 65 73 74 75 70 57 58 68 69 71 71 71 76 78 75 97 98 60 59 64 63 64 62 52 51 80 76 62 61 66 66 55 54 56 57 50 50 50 55 63 64 69 70 69 70 61 60 55 56 53 52 60 55 56 56 59 61 62 66 53 53 57 59 57 56 70 68 56 56 84 86 69 71 88 87 56 57 103 101 50 50 52 52 55 55 63 63 47 47 45 45 62 63 53 51 52 51 57 55 64 64 59 55 84 90 79 79 55 57 67 67 76 77 62 62 83 83 96 94 75 76 65 66 78 77 69 73 68 68 55 55 52 56 45 45 68 68 44 44 62 61 87 89 56 53 50 47 83 84 53 53 64 62 90 91 85 83 66 68 52 53 53 55 54 55 64 66 55 55 55 55 59 55 70 67 88 86 57 58 47 47 47 45 48 44 54 58 69 68 57 56 51 50 54 54 53 52 59 58 56 58 59 59 63 62 66 66 96 95 53 50 76 75 61 61 62 64 71 68 66 67 81 82 68 68 80 78 63 59 70 70 56 56 60 55 58 54 76 75 50 49 88 93 89 86 59 59 51 51 62 61 74 71 83 80 90 91 79 81
Names of X columns:
weight repwt
Alternative


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')

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
R Framework error message	Warning: there are blank lines in the 'Data X' field. Please, use NA for missing data - blank lines are simply deleted and are NOT treated as missing values.
R Engine error message	Error in list(77, 77, 58, 51, 53, 54, 68, 70, 59, 59, 76, 76, 76, 77, : argument 93 is empty Calls: array Execution halted