Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
161 161 157 166 161 168 163 166 168 175 170 171 166 169 166 157 166 164 169 166 164 163 160 161 174 162 165 170 173 162 165 164 158 175 165 163 166 171 160 160 165 169 167 170 165 163 162 161 165 169 159 155 164 163 163 175 164 152 167 166 166 174 167 168 178 165 169 153 157 171 157 166 160 148 162 172 167 163 165 176 171 160 165 157 173 168 162 150 162 163 170 169 167 163 161 162 172 159 170 166 158 163 174 154 165 162 172 169 158 164 156 164 182 177 170 167 186 178 171 175 187 197 180 175 173 183 178 173 176 174 178 187 178 183 179 180 182 169 185 177 176 183 172 173 165 177 180 189 178 173 182 183 168 182 178 173 184 180 189 185 178 183 179 179 184 184 169 178 178 167 179 185 177 188 191 175 184 169 172 163 191 169 170 176 168 178 170 178 174 176 181 173 183 185 173 175 180 175 181 177
Data Y:
159 158 155 163 158 165 160 165 165 171 170 168 165 168 160 153 165 161 170 165 160 159 158 NA 173 158 163 NA 169 160 163 161 155 171 163 159 161 NA 150 158 163 175 163 170 165 160 160 161 160 165 153 154 163 160 160 173 160 150 164 165 163 171 165 163 175 163 NA 154 153 169 155 163 158 148 160 168 NA 160 163 176 171 155 165 158 170 165 160 152 NA 160 NA NA 165 160 160 158 171 155 168 165 155 NA NA NA 160 160 168 166 155 165 158 161 180 175 165 165 180 175 170 174 185 200 178 173 170 180 175 173 175 171 175 188 178 180 175 NA 183 170 185 NA 172 180 169 170 165 170 175 185 175 175 180 183 170 183 175 170 183 180 185 182 175 183 171 179 181 183 165 178 175 165 NA 185 175 185 188 175 183 165 174 161 188 165 170 NA 168 178 165 175 173 175 NA 173 180 188 173 175 180 NA 178 178
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