Wessa.net

Send output to:

Data X:
11 7 11 7 11 8 12 6 11 11 10 11 9 5 12 11 9 6 9 8 12 11 9 8 12 10 12 7 9 7 11 11 9 8 11 10 11 7 12 11 11 8 12 11 12 10 12 7 12 10 7 4 9 9 12 10 4 8 10 10 12 9 12 10 6 4 12 6 10 7 12 9 9 10 12 9 9 8 12 10 10 8 12 10 11 5 12 11 12 10 11 9 7 8 12 8 12 6 12 10 10 10 8 9 8 8 10 11 12 9 12 9 12 10 12 12 10 7 12 10 9 5 9 8 12 11 12 10 9 6 11 11 11 9 10 8 10 8 12 4 10 7 9 10 9 6 11 10 12 5 11 12 11 12 12 11 12 8 11 10 12 10 10 9 12 10 4 6 11 8 11 11 12 6 11 2 12 10 9 10
Names of X columns:
Cat1 Cat2
Alternative


Column number for the first variable


Column number for the second variable


Test to Perform


Are observations paired?


Value of Difference of Means to Test


Confidence Level to test (?)


Display a Boxplot


Chart options


Title:
Label y-axis:
Label x-axis:

R Code
par2 <- as.numeric(par2) par3 <- as.numeric(par3) par4 <- as.character(par4) par5 <- as.character(par5) par6 <- as.numeric(par6) if ( par5 == 'unpaired') paired <- FALSE else paired <- TRUE x <- t(y) 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 == 'Students T-Test') { a<-table.start() a <- table.row.start(a) a <- table.element(a,'Students T-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) T <- t.test(x[,par2],x[,par3],alternative=par1, paired=paired, mu=par6) a<-table.row.start(a) a<-table.element(a,'Students T-Test',1,TRUE) a<-table.element(a,round(T$statistic[[1]], digits=5) ) a<-table.element(a,round(T$p.value, digits=5) ) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab') }

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