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