Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
49 NA 66 65 50 NA 52 56 62 NA 55 NA 59 NA 58 NA 54 NA 60 NA 43 NA 54 55 53 52 68 68 54 56 62 63 61 61 62 61 55 57 64 66 59 58 61 61 68 63 56 56 70 67 78 75 68 68 54 59 63 61 64 62 63 62 60 55 58 54 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 57 55 166 56 56 57 64 63 55 54 61 60 60 55 55 55 59 55 62 62 55 55 62 61 53 55 52 52 64 62 50 50 56 56 62 61 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 58 51 63 59 56 57 53 54 51 52 54 55 75 75 63 64 56 53 59 55 53 52 51 51 59 59 52 51 44 44 55 55 59 59 53 50 50 49 55 NA 47 NA 39 41 52 52 45 45 47 45 50 55 52 51 50 47 73 NA 64 NA 67 NA 82 NA 82 NA 81 NA 76 75 65 67 85 83 96 95 88 93 92 101 102 107 97 98 88 87 87 89 90 91 82 85 69 70 59 61 84 86 84 90 96 94 88 86 103 101 83 83 77 77 69 73 101 100 78 80 73 74 69 70 69 71 76 75 83 80 67 67 119 124 80 80 65 66 71 68 90 91 79 81 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 70 75 69 68 65 66 79 76 68 68 70 70 89 86 65 64 69 69 79 79 65 64 66 70 74 73 57 58 71 71 55 56 70 68 61 61 75 70 62 64 76 76 76 77 68 69 75 76 69 73 54 58 76 75 66 67 56 58
Names of X columns:
weight repwt
Alternative
two.sided
two.sided
less
greater
Column number for the first variable
Column number for the second variable
Test to Perform
T-Test
Wilcoxon-Mann_Whitney
T-Test
Are observations paired?
paired
unpaired
paired
Value of Difference of Means to Test
Confidence Level to test
(?)
Display a Boxplot
TRUE
TRUE
FALSE
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) 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