Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
161 159 182 180 161 158 177 175 157 155 170 165 161 158 167 165 168 165 186 180 163 160 178 175 166 165 171 170 168 165 175 174 175 171 187 185 170 170 197 200 171 168 180 178 166 165 175 173 169 168 173 170 166 160 183 180 157 153 178 175 166 165 173 173 164 161 176 175 169 170 174 171 166 165 178 175 164 160 187 188 163 159 178 178 160 158 183 180 174 173 179 175 162 158 182 183 165 163 169 170 173 169 185 185 162 160 176 172 165 163 183 180 164 161 172 169 158 155 173 170 175 171 165 165 165 163 177 170 163 159 180 175 166 161 189 185 160 150 178 175 160 158 173 175 165 163 182 180 169 175 183 183 167 163 168 170 170 170 182 183 165 165 178 175 163 160 173 170 162 160 184 183 161 161 180 180 165 160 189 185 169 165 185 182 159 153 178 175 164 163 183 183 163 160 179 171 163 160 179 179 175 173 184 181 164 160 184 183 152 150 169 165 167 164 178 178 166 165 178 175 166 163 167 165 174 171 185 185 167 165 177 175 168 163 188 185 178 175 191 188 165 163 175 175 157 153 184 183 171 169 169 165 157 155 172 174 166 163 163 161 160 158 191 188 148 148 169 165 162 160 170 170 172 168 168 168 163 160 178 178 165 163 170 165 176 176 178 175 171 171 174 173 160 155 176 175 165 165 173 173 157 158 183 180 173 170 185 188 168 165 173 173 162 160 175 175 150 152 180 180 163 160 181 178 167 165 177 178 163 160 161 160 162 158 172 171 159 155 170 168 166 165 158 155 165 160 162 160 172 168 169 166 158 155 164 165 156 158 164 161
Names of X columns:
FemaleHeight, FemaleRepHt, MaleHeight, MaleRepHt
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation