Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
58 77 53 68 59 76 51 76 64 69 52 71 65 65 62 70 61 92 61 76 54 119 50 65 63 66 58 101 39 75 71 79 52 64 68 69 56 88 54 65 63 80 54 78 54 85 75 82 56 74 78 102 60 65 64 73 64 75 52 57 62 68 55 71 56 71 50 97 50 80 63 66 61 69 53 69 60 55 56 59 53 62 57 70 57 84 56 69 56 88 50 103 52 63 55 84 47 79 45 67 62 83 53 96 52 75 57 65 64 78 59 69 55 87 76 83 62 90 68 85 55 66 45 88 68 54 44 69 62 56 56 96 50 76 53 61 64 62 52 71 53 66 54 81 64 68 55 80 55 70 59 76 70 88 57 89 47 74 47 83 48 90 57 79 51 54 53 59 59 63 66 53 63 56 60 58 50 59 51 62
Names of X columns:
FemaleWeight, MaleWeight
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation