Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
51 58 77 77 54 53 68 70 59 59 76 76 52 51 76 77 64 64 69 73 57 52 71 71 66 65 65 64 62 62 70 75 61 61 92 101 61 61 76 75 59 54 119 124 50 50 65 66 61 63 66 70 60 58 101 100 41 39 75 73 71 71 79 76 52 52 64 65 63 68 69 69 54 56 88 86 53 54 65 67 59 63 80 80 55 54 78 80 56 54 85 82 75 75 82 85 57 56 74 73 75 78 102 107 59 60 65 64 63 64 73 74 62 64 75 70 51 52 57 58 61 62 68 69 54 55 71 71 57 56 71 76 50 50 97 98 55 50 80 76 64 63 66 66 60 61 69 70 52 53 69 70 55 60 55 56 56 56 59 61 53 53 62 66 59 57 70 68 56 57 84 86 56 56 69 71 57 56 88 87 50 50 103 101 52 52 63 63 55 55 84 90 47 47 79 79 45 45 67 67 63 62 83 83 51 53 96 94 51 52 75 76 55 57 65 66 64 64 78 77 55 59 69 73 57 55 87 89 77 76 83 84 62 62 90 91 68 68 85 83 55 55 66 68 45 45 88 86 68 68 54 58 44 44 69 68 61 62 56 58 53 56 96 95 47 50 76 75 53 53 61 61 62 64 62 64 53 52 71 68 55 53 66 67 55 54 81 82 66 64 68 68 55 55 80 78 55 55 70 70 55 59 76 75 67 70 88 93 58 57 89 86 47 47 74 71 45 47 83 80 44 48 90 91 56 57 79 81 50 51 54 54 52 53 58 59 59 59 62 63 66 66 50 53 59 63 56 56 55 60 54 58 49 50 59 59 51 51 61 62
Names of X columns:
FemaleRepWt, FemaleWeight, MaleWeight, MaleRepwt
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