Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
335 342 341 336 326 324 318 314 309 304 303 305 304 307 304 295 287 279 272 267 260 254 251 249 251 248 238 226 217 211 208 204 198 194 192 192 196 192 186 179 174 169 167 165 161 161 164 171 183 191 198 205 211 220 230 237 242 250 259 270
Data Y:
797 840 988 819 831 904 814 798 828 789 930 744 832 826 907 776 835 715 729 733 736 712 711 667 799 661 692 649 729 622 671 635 648 745 624 477 710 515 461 590 415 554 585 513 591 561 684 668 795 776 1043 964 762 1030 939 779 918 839 874 840
Sample Range:
(leave blank to include all observations)
From:
To:
Chart options
Label y-axis:
Label x-axis:
R Code
library('Kendall') k <- Kendall(x,y) bitmap(file='test1.png') par(bg=rgb(0.2,0.4,0.6)) plot(x,y,main='Scatterplot',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='test2.png') par(bg=rgb(0.2,0.4,0.6)) plot(rank(x),rank(y),main='Scatterplot of Ranks',xlab=xlab,ylab=ylab) grid() dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Kendall tau Rank Correlation',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Kendall tau',header=TRUE) a<-table.element(a,k$tau) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'2-sided p-value',header=TRUE) a<-table.element(a,k$sl) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Score',header=TRUE) a<-table.element(a,k$S) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Var(Score)',header=TRUE) a<-table.element(a,k$varS) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Denominator',header=TRUE) a<-table.element(a,k$D) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.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