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.2 98.1 96.1 95.5 95.7 95.9 96.2 95.7 93.4 93.4 91.9 92.8 93.2 93.8 93.8 85.1 86.1 86.5 90 89.1 88.4 91.4 88 87.8 87.4 86.2 87.8 84.6 85 85.7 83.9 83.6 82.6 84.9 84.2 83.8 84.2 84.4 86 89.7 93.9 98.4 98.3 99.3 100.5 96.9 97.5 97.5 98.9 99.3 100.6 99.9 98.8 98.6 98.2 96.3 103.4 102.7 102.7 102.6 101.6 100.9 101.1 105.6 104.7 103.8 105.4 105.6 109.2 109.5 110.1 110 110.3 109.3 110.2 113 113.6 111.2 111.3 115
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation