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