Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
58 51 53 54 59 59 166 56 51 52 64 64 52 57 65 66 62 62 61 61 61 61 54 59 50 50 63 61 58 60 39 41 71 71 52 52 68 63 56 54 54 53 63 59 54 55 54 56 75 75 56 57 78 75 60 59 64 63 64 62 52 51 62 61 55 54 56 57 50 50 50 55 63 64 61 60 53 52 60 55 56 56 53 53 57 59 57 56 56 56 56 57 50 50 52 52 55 55 47 47 45 45 62 63 53 51 52 51 57 55 64 64 59 55 55 57 76 77 62 62 68 68 55 55 45 45 68 68 44 44 62 61 56 53 50 47 53 53 64 62 52 53 53 55 54 55 64 66 55 55 55 55 59 55 70 67 57 58 47 47 47 45 48 44 57 56 51 50 54 54 53 52 59 58 59 59 63 62 66 66 53 50 63 59 56 56 60 55 58 54 50 49 59 59 51 51 62 61
Names of X columns:
weight rptweight
Alternative
a-102409703_0.907609669025987_Fri Jun 1 11:19:34 2012
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