Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
58 161 53 161 59 157 166 57 51 161 64 168 52 163 65 166 62 168 61 175 61 170 54 171 50 166 63 169 58 166 39 157 71 166 52 164 68 169 56 166 54 164 63 163 54 160 49 161 54 174 75 162 56 165 66 170 78 173 60 162 64 165 64 164 52 158 62 175 55 165 56 163 50 166 50 171 50 160 63 160 61 165 53 169 60 167 56 170 53 165 57 163 57 162 56 161 56 165 50 169 52 159 55 155 55 164 47 163 45 163 62 175 53 164 52 152 57 167 64 166 59 166 55 174 76 167 62 168 68 178 55 165 52 169 47 153 45 157 68 171 44 157 62 166 56 160 50 148 53 162 64 172 62 167 52 163 53 165 54 176 64 171 55 160 55 165 59 157 70 173 57 168 47 162 47 150 55 162 48 163 59 170 58 169 57 167 51 163 54 161 53 162 59 172 59 159 63 170 66 166 53 158 54 163 60 174 43 154 63 165 56 162 60 172 58 169 50 158 59 164 51 156 62 164
Names of X columns:
weight height
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,'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/Ian.Holliday/rwasp_varia1.wasp','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/Ian.Holliday/rwasp_CARE Data Boxplot.wasp','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/Ian.Holliday/rwasp_Reddy-Moores K-S Test.wasp','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