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