Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
77 58 53 68 59 76 76 69 71 65 70 57 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 54 75 82 56 74 102 65 73 75 57 68 71 71 78 97 60 64 64 52 80 62 66 55 56 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 63 47 45 62 53 52 57 64 59 84 79 55 67 76 62 83 96 75 65 78 69 68 55 45 68 44 62 87 56 50 83 53 64 90 85 66 52 53 54 64 55 55 59 70 88 57 47 47 48 54 69 57 51 54 53 59 56 59 63 66 96 53 76 61 62 71 66 81 68 80 63 70 56 60 58 76 50 88 89 59 51 62 74 83 90 79
Data Y:
182 161 161 177 157 170 167 186 178 171 175 166 161 168 163 166 187 168 197 175 180 170 175 173 171 166 169 166 157 183 166 178 173 164 169 176 166 174 178 187 164 178 163 183 179 160 174 162 182 165 169 185 176 183 172 173 165 177 180 173 189 162 165 164 158 178 175 173 165 163 166 160 160 182 183 165 168 169 167 170 182 178 165 163 162 173 161 184 180 189 165 185 169 159 164 178 163 163 175 164 152 167 166 166 183 179 174 179 167 168 184 184 169 178 178 167 178 165 157 171 157 166 185 160 148 177 162 172 188 191 175 163 165 176 171 160 165 157 173 184 168 162 150 163 169 172 167 163 161 162 172 163 159 170 166 191 158 169 170 168 178 170 178 174 176 165 173 162 172 169 183 158 185 173 164 156 164 175 180 181 177
Correlation Test Method
kendall
pearson
kendall
spearman
Form of Alternative H1
two.sided
two.sided
less
greater
Chart options
Label y-axis:
Label x-axis:
R Code
par2 <- 'two.sided' par1 <- 'pearson' 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