Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
13363.36 12387.69 13133.16 18906.25 7005.69 11236 15227.56 16002.25 14400 20050.56 8190.25 9312.25 12882.25 14424.01 15351.21 20851.36 8244.64 13041.64 19071.61 18225 17239.69 20909.16 10342.89 11815.69 18306.09 15450.49 19126.89 25027.24 8742.25 15575.04 23839.36 23347.84 22171.21 29002.09 15575.04 18063.36 23716 21874.41 28257.61 30870.49 13618.89 19824.64 26961.64 30206.44 28156.84 27755.56 18252.01 24995.61 23043.24 27788.89 27324.09 34969 15675.04 20851.36 33014.89 30940.81 27655.69 32942.25 14835.24 18171.04 26536.41
Data Y:
12034.09 9820.81 7516.89 12409.96 6146.56 5882.89 13041.64 9940.09 8873.64 30102.25 6905.61 7903.21 17424 14908.41 11046.01 17875.69 4044.96 12701.29 14520.25 12544 15926.44 43764.64 8281 13618.89 18933.76 11685.61 18659.56 23195.29 13064.49 14568.49 17371.24 16744.36 35156.25 35910.25 11924.64 24995.61 31046.44 15750.25 24025 29002.09 9880.36 19376.64 28764.16 18523.21 28291.24 101505.96 23746.81 26049.96 33635.56 27655.69 41209 30485.16 15450.49 23839.36 29070.25 28696.36 29275.21 83636.64 21199.36 18063.36 28291.24
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