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