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