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 49 NA 73 NA 54 56 82 85 75 75 74 73 56 57 102 107 66 65 64 NA 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 NA 66 66 50 55 69 70 63 64 69 70 61 60 55 56 53 52 59 61 60 55 62 66 56 56 70 68 53 53 84 86 57 59 69 71 57 56 88 87 56 56 103 101 56 57 63 63 50 50 84 90 52 52 79 79 55 NA 67 67 55 55 83 83 47 47 96 94 45 45 75 76 62 63 65 66 53 51 78 77 52 51 69 73 57 55 67 NA 64 64 87 89 59 55 83 84 55 57 90 91 76 77 85 83 62 62 66 68 68 68 88 86 55 55 54 58 52 56 69 68 47 NA 56 58 45 45 96 95 68 68 76 75 44 44 61 61 62 61 82 NA 56 53 62 64 50 47 71 68 53 53 66 67 64 62 81 82 62 NA 68 68 52 53 80 78 53 55 82 NA 54 55 70 70 64 66 76 75 55 55 88 93 55 55 89 86 59 55 74 71 70 67 83 80 57 58 81 NA 47 47 90 91 47 45 79 81 55 NA NA NA 48 44 NA NA 59 NA NA NA 58 NA NA NA 57 56 NA NA 51 50 NA NA 54 54 NA NA 53 52 NA NA 59 58 NA NA 59 59 NA NA 63 62 NA NA 66 66 NA NA 53 50 NA NA 54 NA NA NA 60 NA NA NA 43 NA NA NA 63 59 NA NA 56 56 NA NA 60 55 NA NA 58 54 NA NA 50 49 NA NA 59 59 NA NA 51 51 NA NA 62 61 NA NA
Names of X columns:
fweight RWeight mweight Rweight
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