Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
0.1 0.3 0.4 0.4 0.4 0.5 0.5 0.5 0.5 0.5 0.6 0.6 0.6 0.6 0.6 0.7 0.7 0.7 0.7 0.8 0.8 0.8 0.9 1 1 1 1.1 1.1 1.1 1.1 1.2 1.2 1.2 1.2 1.3 1.3 1.3 1.4 1.4 1.4 1.4 1.4 1.5 1.5 1.5 1.5 1.6 1.6 1.6 1.6 1.7 1.8 1.9 2 2.4 2.7 2.8 2.8 2.8 3.4 3.5 3.5 3.5 3.8 3.9 3.9 4 4.2 4.3 4.3 4.6 4.6 4.6 4.7 4.8 4.9 4.9 5 5.1 5.1 5.3 5.4 5.4 5.5 5.5 5.8 5.9 6.2 6.2 6.2 6.4 6.4 6.5 6.6 7.1 7.3 7.3 7.3 7.3 7.6 7.7 7.8 8 8.1 8.3 8.5 8.6 8.9 8.9 9.1 9.2 9.9 10 10.2 10.4 10.7 10.7 11.5 11.6 11.9 11.9 12 12.5 12.5 12.6 12.7 13.1 13.4 13.5 14 14.6 14.7 15 15.3 15.5 15.6 16.3 17 17.2 17.3 17.3 18.8 19 19.2 19.9 21 21 21.7 21.7 22.1 22.5 22.6 23.1 24.1 24.1 24.45 24.8 24.8 25.5 27.3 30.3 30.3 30.4 30.8 31.2 31.3 31.8 34.2 35 36.4 54.8 58.21 101
Data Y:
3.05 3.69 7.6 3.77 1.7 7.46 2.97 2.51 0.5 0.25 10.04 4.51 4.41 1.92 0.31 5.98 4.47 1.78 1.49 9.07 2.27 0.62 5.12 13.09 9.14 1.44 10.82 9.02 0.74 0.71 10.42 8.46 6.87 4.03 8.23 4.84 0.74 11.84 10.88 7.01 6.01 0.49 9.79 2.99 2.91 1.92 30.88 10.22 9.17 3.22 1.52 7.6 7.23 7.3 11.84 38 12.4 6.77 5.93 0.6 3.23 2.75 2.45 4.2 2.23 0.61 2.42 3.21 1.84 0.64 6.74 6.55 0.82 9.84 4.19 10.53 0.74 1.05 17.39 3.39 29.81 8.84 2.15 6.45 1.48 108.64 26.5 63.75 1.8 0.92 8.16 5.75 0.85 4.36 3.19 4.12 3.58 2.68 1.36 1.37 11.49 10.91 26.74 43.21 0.88 0.97 2.28 11.31 5.85 5.56 3.2 11.77 34.4 6.53 0.66 57.15 3.59 2 7.81 0.96 0.78 0.99 4.3 2.45 16.93 34.27 31.21 10.68 1.21 9 19.42 2.71 16.35 0.72 2.49 3.51 0.75 9.29 1.95 9.65 1.5 7.16 4.11 8.1 3.21 3.95 1.15 11.38 0.87 0.66 0.85 0.91 2.72 1.59 0.98 0.69 1.78 0.54 1.06 1.6 0.91 0.85 0.51 1.68 1.58 0.56 8.42 8 1.5 1.29 6.67 1.13 4.88
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