Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1.74 1.75 1.83 2.09 2.12 2.29 2.4 2.82 3.18 4 4.8 5.28 5.37 5.27 5.33 5.23 5.08 5.11 5.1 4.97 5 5.2 4.9 4.82 5.04 4.82 4.77 4.79 4.58 4.59 4.57 4.35 4.27 4.39 3.97 3.84 3.73 3.58 3.45 3.44 3.25 3.25 3.02 2.87 2.92 2.95 2.75 2.7 2.75 2.72 2.71 2.76 2.68 2.78 2.86 2.75 2.87 2.91 2.79 2.77
Data Y:
3.2 1.9 0 0.6 0.2 0.9 2.4 4.7 9.4 12.5 15.8 18.2 16.8 17.3 19.3 17.9 20.2 18.7 20.1 18.2 18.4 18.2 18.9 19.9 21.3 20 19.5 19.6 20.9 21 19.9 19.6 20.9 21.7 22.9 21.5 21.3 23.5 21.6 24.5 22.2 23.5 20.9 20.7 18.1 17.1 14.8 13.8 15.2 16 17.6 15 15 16.3 19.4 21.3 20.5 21.1 21.6 22.6
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