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