Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
56 58 76 76 76 77 68 69 75 76 69 73 54 58 76 75 66 67 62 64 75 70 65 64 66 70 74 73 57 58 71 71 55 56 70 68 61 61 69 69 79 79 65 64 65 66 79 76 68 68 70 70 89 86 70 75 69 68 68 70 71 71 75 73 64 65 88 86 85 82 71 76 80 76 66 66 62 66 63 63 78 77 83 84 66 68 81 82 80 78 74 71 119 124 80 80 65 66 71 68 90 91 79 81 67 67 77 77 69 73 101 100 78 80 73 74 69 70 69 71 76 75 83 80 83 83 103 101 82 85 69 70 59 61 84 86 84 90 96 94 88 86 92 101 102 107 97 98 88 87 87 89 90 91 65 67 85 83 96 95 88 93 76 75 50 47 50 55 52 51 47 45 39 41 52 52 45 45 52 51 44 44 55 55 59 59 53 50 50 49 53 54 51 52 54 55 75 75 63 64 56 53 59 55 53 52 51 51 58 51 63 59 56 57 52 57 58 60 54 53 60 59 57 59 57 56 56 57 47 47 45 45 53 51 53 53 52 53 47 47 48 44 51 50 54 54 63 59 56 56 52 52 64 62 50 50 56 56 62 61 166 56 56 57 64 63 55 54 61 60 60 55 55 55 59 55 62 62 55 55 62 61 53 55 57 55 64 64 65 66 62 62 50 50 71 71 56 54 53 53 50 50 64 64 76 77 55 55 57 58 57 56 66 66 59 59 58 54 54 59 63 61 64 62 63 62 60 55 78 75 68 68 61 61 68 63 56 56 70 67 61 61 62 61 55 57 64 66 59 58 54 56 62 63 53 52 68 68 54 55
Names of X columns:
W rw
Alternative
two.sided
two.sided
less
greater
Column number for the first variable
Column number for the second variable
Test to Perform
Wilcoxon-Mann_Whitney
T-Test
Are observations paired?
unpaired
paired
Value of Difference of Means to Test
Confidence Level to test
(?)
Display a Boxplot
TRUE
FALSE
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
par8 <- 'TRUE' par7 <- '0.95' par6 <- '0.0' par5 <- 'unpaired' par4 <- 'Wilcoxon-Mann_Whitney' par3 <- '2' par2 <- '1' par1 <- 'two.sided' par2 <- as.numeric(par2) par3 <- as.numeric(par3) par4 <- as.character(par4) par5 <- as.character(par5) par6 <- as.numeric(par6) par7 <- as.numeric(par7) par8 <- as.logical(par8) if ( par5 == 'unpaired') paired <- FALSE else paired <- TRUE x <- t(y) if(par8){ bitmap(file='test1.png') (r<-boxplot(x ,xlab=xlab,ylab=ylab,main=main,notch=FALSE,col=2)) dev.off() } load(file='createtable') if( par4 == 'Wilcoxon-Mann_Whitney'){ a<-table.start() a <- table.row.start(a) a <- table.element(a,'Wilcoxon 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, paired = paired) a<-table.row.start(a) a<-table.element(a,'Wilcoxon Test',1,TRUE) a<-table.element(a,W$statistic[[1]]) a<-table.element(a,round(W$p.value, digits=5) ) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab') } if( par4 == 'T-Test') { T <- t.test(x[,par2],x[,par3],alternative=par1, paired=paired, mu=par6, conf.level=par7) a<-table.start() a <- table.row.start(a) a <- table.element(a,'T-Test',3,TRUE) a <- table.row.end(a) if(paired){ a <- table.row.start(a) a <- table.element(a,'Difference: Mean1 - Mean2',1,TRUE) a<-table.element(a,round(T$estimate, digits=5) ) a <- table.row.end(a) } if(!paired){ a <- table.row.start(a) a <- table.element(a,'Mean1',1,TRUE) a<-table.element(a,round(T$estimate[1], digits=5) ) a <- table.row.end(a) a <- table.row.start(a) a <- table.element(a,'Mean2',1,TRUE) a<-table.element(a,round(T$estimate[2], digits=5) ) a <- table.row.end(a) } a <- table.row.start(a) a <- table.element(a,'T Statistic',1,TRUE) a<-table.element(a,round(T$statistic, digits=5) ) a <- table.row.end(a) a <- table.row.start(a) a <- table.element(a,'P-value',1,TRUE) a<-table.element(a,round(T$p.value, digits=5) ) a <- table.row.end(a) a <- table.row.start(a) a <- table.element(a,'Lower Confidence Limit',1,TRUE) a<-table.element(a,round(T$conf.int[1], digits=5) ) a <- table.row.end(a) a<-table.row.start(a) a <- table.element(a,'Upper Confidence Limit',1,TRUE) a<-table.element(a,round(T$conf.int[2], 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,'Standard Deviations',3,TRUE) a <- table.row.end(a) a <- table.row.start(a) a <- table.element(a,'Variable 1',1,TRUE) a<-table.element(a,round(sd(x[,par2], na.rm=TRUE), digits=5) ) a <- table.row.end(a) a <- table.row.start(a) a <- table.element(a,'Variable 2',1,TRUE) a<-table.element(a,round(sd(x[,par3], na.rm=TRUE), digits=5) ) 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