Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2.19 2.10 2.03 2.04 2.09 2.12 2.12 2.07 2.05 2.08 2.14 2.15 2.14 2.08 2.05 2.08 2.10 2.12 2.10 2.09 2.08 2.05 2.05 2.04 2.03 2.03 2.03 2.05 2.08 2.08 2.07 2.04 2.00 1.93 1.90 1.87 1.86 1.90 1.92 1.93 1.93 1.90 1.86 1.82 1.77 1.81 1.90 1.92 1.89 1.86 1.86 1.90 1.96 1.96 1.93 1.86 1.79 1.79
Data Y:
8.03 8.13 7.88 8.07 7.97 8.10 8.25 8.08 8.28 8.25 7.96 8.16 8.22 8.15 8.12 8.32 8.39 8.22 8.37 8.16 8.21 8.27 7.99 8.11 8.14 8.16 7.93 7.97 8.06 8.01 8.16 8.01 7.87 8.17 7.95 8.05 7.85 8.20 7.94 7.86 7.97 8.12 7.98 8.01 7.96 8.07 7.85 7.85 8.05 7.89 7.96 8.03 7.68 7.76 7.85 7.87 7.82 7.92
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