Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
77 58 53 68 59 76 76 69 71 65 70 166 51 64 52 65 92 62 76 61 119 61 65 66 54 50 63 58 39 101 71 75 79 52 68 64 56 69 88 65 54 80 63 78 85 54 73 49 54 75 82 56 74 102 64 65 66 73 75 57 68 71 71 78 97 60 64 64 52 80 62 66 55 56 50 50 50 63 69 69 61 55 53 60 56 59 62 53 57 57 70 56 84 69 88 56 103 50 52 55 55 63 47 45 62 53 52 57 64 59 84 79 55 67 76 62 83 96 75 65 78 69 68 55 67 52 47 45 68 44 62 87 56 50 83 53 64 62 90 85 66 52 53 54 64 55 55 59 70 88 57 47 47 55 48 54 69 59 58 57 51 54 53 59 56 59 63 66 96 53 76 54 61 82 62 71 60 66 81 68 80 43 82 63 70 56 60 58 76 50 88 89 59 51 62 74 83 81 90 79
Data Y:
77 51 54 70 59 76 77 73 71 64 75 56 52 64 57 66 101 62 75 61 124 61 66 70 59 50 61 60 41 100 71 73 76 52 63 65 54 69 86 67 53 80 59 80 82 55 NA NA 56 75 85 57 73 107 NA 64 65 74 70 58 69 71 76 75 98 59 63 62 51 76 61 66 54 57 50 NA 55 64 70 70 60 56 52 55 56 61 66 53 59 56 68 56 86 71 87 57 101 50 52 NA 55 63 47 45 63 51 51 55 64 55 90 79 57 67 77 62 83 94 76 66 77 73 68 55 NA 56 NA 45 68 44 61 89 53 47 84 53 62 NA 91 83 68 53 55 55 66 55 55 55 67 86 58 47 45 NA 44 58 68 NA NA 56 50 54 52 58 58 59 62 66 95 50 75 NA 61 NA 64 68 NA 67 82 68 78 NA NA 59 70 56 55 54 75 49 93 86 59 51 61 71 80 NA 91 81
Correlation Test Method
pearson
pearson
kendall
spearman
Form of Alternative H1
two.sided
two.sided
less
greater
Chart options
Label y-axis:
Label x-axis:
R Code
bitmap(file='test1.png') plot(x,y, xlab=xlab, ylab=ylab) abline(coef=(lm(y ~ x))$coeff, col='red') ctp<-cor.test(x, y, use='pair', method='pearson') legend('bottomright', c('cor =', as.character(round(ctp$estimate, digits=4)))) dev.off() (sw1<-shapiro.test(x)) (sw2<-shapiro.test(y)) (cxy<-cor.test(x, y, method=par1)) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,paste('Shapiro Test (', xlab,')',sep=''),3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Statistic W',header=TRUE) a<-table.element(a,'Probability',header=TRUE) a<-table.element(a,'Link',header=TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,round(sw1$statistic, digits=4)) a<-table.element(a,round(sw1$p.value, digits=4)) a<-table.element(a,hyperlink('http://en.wikipedia.org/wiki/Shapiro%E2%80%93Wilk_test','Shapiro-Wilk Test','Shapiro-Wilk Test')) 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, paste('Shapiro Test (', ylab,')',sep=''),3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Statistic W',header=TRUE) a<-table.element(a,'probability',header=TRUE) a<-table.element(a,'Link',header=TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,round(sw2$statistic, digits=4)) a<-table.element(a,round(sw2$p.value, digits=4)) a<-table.element(a,hyperlink('http://en.wikipedia.org/wiki/Shapiro%E2%80%93Wilk_test','Shapiro-Wilk Test','Shapiro-Wilk Test')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Correlation Test X-Y',5,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Statistic',header=TRUE) a<-table.element(a,'Value',header=TRUE) a<-table.element(a,'probability',header=TRUE) a<-table.element(a,'Method',header=TRUE) a<-table.element(a,'alternative',header=TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,names(cxy$estimate)) a<-table.element(a,round(cxy$estimate, digits=4)) a<-table.element(a,round(cxy$p.value, digits=4)) a<-table.element(a,cxy$method) a<-table.element(a,cxy$alternative) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable2.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