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