Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
161 182 161 177 157 170 161 167 168 186 163 178 166 171 168 175 175 187 170 197 171 180 166 175 169 173 166 183 157 178 166 173 164 176 169 174 166 178 164 187 163 178 160 183 174 179 162 182 165 169 173 185 162 176 165 183 164 172 158 173 175 165 165 177 163 180 166 189 160 178 160 173 165 182 169 183 167 168 170 182 165 178 163 173 162 184 161 180 165 189 169 185 159 178 164 183 163 179 163 179 175 184 164 184 152 169 167 178 166 178 166 167 174 185 167 177 168 188 178 191 165 175 157 184 171 169 157 172 166 163 160 191 148 169 162 170 172 168 163 178 165 170 176 178 171 174 160 176 165 173 157 183 173 185 168 173 162 175 150 180 163 181 167 177 163 161 162 172 159 170 166 158 165 162 172 169 158 164 156 164
Names of X columns:
FemaleHeight, MaleHeight
Alternative
10
two.sided
less
greater
Column number for the first variable
Column number for the second variable
Chart options
R Code
par3 <- '2' par2 <- '1' par1 <- 'two.sided' 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