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