Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
6.44 6.55 6.72 6.52 6.49 6.67 6.02 5.86 6.73 6.59 6.55 6.46 6.54 6.46 6.64 6.45 6.58 6.75 6.04 5.91 6.71 6.53 6.40 6.52 6.61 6.54 6.53 6.39 6.59 6.59 5.96 5.80 6.56 6.57 6.49 6.48 6.46 6.47 6.58 6.48 6.45 6.59 5.97 5.84 6.67 6.75 6.48 6.44 6.53 6.42 6.57 6.57 6.44 6.82 6.27 5.88 6.82 6.72 6.56 6.75
Data Y:
356 386 444 387 327 448 225 182 460 411 342 361 377 331 428 340 352 461 221 198 422 329 320 375 364 351 380 319 322 386 221 187 344 342 365 313 356 337 389 326 343 357 220 228 391 425 332 298 360 326 325 393 301 426 265 210 429 440 357 431
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