Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
39 41 55 56 44 44 54 58 48 44 56 58 45 45 57 58 45 45 59 61 47 45 61 61 47 47 63 63 47 47 62 64 50 47 65 64 50 49 65 64 50 50 64 65 50 50 62 66 50 50 65 66 51 50 65 66 53 50 66 66 51 51 65 67 52 51 66 67 52 51 67 67 53 51 66 68 58 51 68 68 51 52 69 68 52 52 70 68 52 52 71 68 53 52 68 69 53 52 69 69 52 53 66 70 53 53 68 70 53 53 69 70 54 53 69 70 56 53 70 70 53 54 75 70 54 54 69 71 55 54 71 71 56 54 71 71 58 54 74 71 50 55 69 73 53 55 69 73 54 55 74 73 54 55 75 73 55 55 73 74 55 55 70 75 55 55 76 75 55 55 76 75 57 55 76 75 59 55 71 76 59 55 75 76 60 55 76 76 60 55 79 76 54 56 80 76 56 56 76 77 56 56 77 77 56 56 78 77 57 56 80 78 57 56 79 79 166 56 78 80 52 57 80 80 55 57 83 80 56 57 79 81 56 57 81 82 56 57 85 82 57 58 83 83 59 58 85 83 54 59 83 84 57 59 82 85 59 59 84 86 59 59 88 86 59 59 88 86 60 59 89 86 63 59 88 87 63 59 87 89 58 60 84 90 61 60 90 91 61 61 90 91 61 61 88 93 62 61 96 94 62 61 96 95 62 61 97 98 63 61 101 100 62 62 92 101 62 62 103 101 63 62 102 107 64 62 119 124
Names of X columns:
w rw w rw
Alternative
a-102737846_0.0822436781600118_Fri Jun 1 05:53:58 2012
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 <- 'less' 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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation