Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
27 18 19 20 29 46 27 23 29 38 20 37 32 26 40 30 26 23 27 38 25 33 45 34 20 24 26 26 39 27 18 34 25 26 28 21 39 25 29 37 34 30 28 25 27 33 30 26 18 21 39 36 32 23 27 45 24 29 21 28 37 22 31 32 20 33 32 18 44 24 21 29 30 37 33 25 19 16 31 29 37 41 28 19 28 33 32 28
Data Y:
52 55 80 45 60 34 45 68 26 70 85 54 55 40 55 50 71 55 70 55 60 65 66 55 90 55 60 35 55 26 14 45 35 65 35 60 60 60 65 45 20 50 60 48 40 55 54 40 40 34 60 30 75 24 30 80 60 46 35 60 75 54 78 20 45 60 70 35 20 60 20 50 50 75 70 20 45 20 50 55 15 26 25 30 60 40 40 50
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