Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
58 161 77 182 53 161 68 177 59 157 76 170 51 161 76 167 64 168 69 186 52 163 71 178 65 166 65 171 62 168 70 175 61 175 92 187 61 170 76 197 54 171 119 180 50 166 65 175 63 169 66 173 58 166 101 183 39 157 75 178 71 166 79 173 52 164 64 176 68 169 69 174 56 166 88 178 54 164 65 187 63 163 80 178 54 160 78 183 54 174 85 179 75 162 82 182 56 165 74 169 78 173 102 185 60 162 65 176 64 165 73 183 64 164 75 172 52 158 57 173 62 175 68 165 55 165 71 177 56 163 71 180 50 166 97 189 50 160 80 178 63 160 66 173 61 165 69 182 53 169 69 183 60 167 55 168 56 170 59 182 53 165 62 178 57 163 70 173 57 162 84 184 56 161 69 180 56 165 88 189 50 169 103 185 52 159 63 178 55 164 84 183 47 163 79 179 45 163 67 179 62 175 83 184 53 164 96 184 52 152 75 169 57 167 65 178 64 166 78 178 59 166 69 167 55 174 87 185 76 167 83 177 62 168 90 188 68 178 85 191 55 165 66 175 45 157 88 184 68 171 54 169 44 157 69 172 62 166 56 163 56 160 96 191 50 148 76 169 53 162 61 170 64 172 62 168 52 163 71 178 53 165 66 170 54 176 81 178 64 171 68 174 55 160 80 176 55 165 70 173 59 157 76 183 70 173 88 185 57 168 89 173 47 162 74 175 47 150 83 180 48 163 90 181 57 167 79 177 51 163 54 161 53 162 59 172 59 159 63 170 66 166 53 158 63 165 56 162 60 172 58 169 50 158 59 164 51 156 62 164
Names of X columns:
FemaleWeight, FemaleHeight, MaleWeight, MaleHeight
Alternative
10
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,'Wilcoxon-Mann-Whitney 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) W <- wilcox.test(x[,par2],x[,par3],alternative=par1) a<-table.row.start(a) a<-table.element(a,'Test',1,TRUE) a<-table.element(a,W$statistic[[1]]) a<-table.element(a,signif(W$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,'Menu of R Modules',2,TRUE) a <- table.row.end(a) a <- table.row.start(a) a <- table.element(a,'Workshop',1,TRUE) a <- table.element(a,'Link',1,TRUE) a <- table.row.end(a) a <- table.row.start(a) a<-table.element(a,'go to',1,header=TRUE) a <- table.element(a,hyperlink('http://www.wessa.net/rwasp_varia1.wasp?mobile=-400','Histogram & QQplots','Click here to load the R module.'),1) a <- table.row.end(a) a <- table.row.start(a) a<-table.element(a,'go to',1,header=TRUE) a <- table.element(a,hyperlink('http://www.wessa.net/rwasp_CARE Data Boxplot.wasp?mobile=-400','Go to Scatterplot Matrix and Boxplots','Click here to load the R module.'),1) a <- table.row.end(a) a <- table.row.start(a) a<-table.element(a,'go to',1,header=TRUE) a <- table.element(a,hyperlink('http://www.wessa.net/rwasp_Reddy-Moores K-S Test.wasp?mobile=-400','Go to Kolmogorov-Smirnov Test','Click here to load the R module.'),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