Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
100.8 100.8 100.8 90.1 95.7 88.6 93.3 93.3 93.3 93.3 93.3 93.3 88.6 97.4 97.4 102.9 102.9 102.9 105.1 105.1 105.1 105.1 105.1 105.1 96.9 96.9 96.9 96.9 96.9 96.9 96.5 96.5 96.5 96 96 96 96 96 96 105.8 105.8 105.8 105.8 105.8 105.8 105.8 105.8 105.8 123.6 142.2 142.2 141.2 141.2 141.2 124.7 124.7 124.7 122.7 122.7 122.7 123.3 123.3 123.3 127.2 127.2 127.2 140 140 140 140 140 140 139 139 139 147 147 147 147.1 147.1
Data Y:
99.8 103.5 103.1 105.6 105.7 106.6 107 105.2 105.7 105 105.1 105.9 105.3 104.9 103.2 103.4 104.4 104.5 105.9 110.6 112.4 111.8 111 111 109.1 107.8 107.2 108.4 107.5 106.4 106.2 104.9 106.2 107.6 107 104.5 105.1 104.7 103.7 104.9 105.9 106.1 106.1 106.8 106.4 107.8 107.6 107.6 108.4 109.5 109.2 109.1 110 109 109 111.9 109.3 112.1 112.1 112.5 113.6 112.9 114 116.1 116.5 117.1 117.1 117.1 116.5 116.5 116.3 116.5 119.2 118.6 117.5 117.1 117.6 118.3 118.6 116.7
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