Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1650 1097 783 961 1607 1374 774 1729 653 1003 963 1170 1249 1075 974 1429 2781 1086 835 2788 1477 2575 759 1407 1806 1226 965 1359 695 1043 834 1195 1902 1817 2136 1324 928 2402 843 1199 2752 1204 949 1934 721 985 8423 1035 696 1152 857 1541 1583 2057 873 929 507 815 899 1232 687 1648 1445 737 633 676 581 698 550 618 633 827 770 712 853 541 858 461 524 1005 759 506 789 850 1244 936 1059 900 556 891 893 734 1050 857 611 963 1032 738 655 900 770 879 772 3007 784 949 1023 1645 1733 1345 924 957 800 1328 881 1473 950 1466 888 1054 1002 2110 1975 1081
Names of X columns:
UprightFamous UprightNon-Famous InvertedFamous InvertedNon-Famous
Alternative
two.sided
two.sided
less
greater
Column number for the first variable
Column number for the second variable
Test to Perform
Students 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) 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') }
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