Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
89080.61599 54394.33427 47681.16746 53561.89212 75799.60618 44874.88121 59471.01588 51865.71799 50497.2368 51965.89141 44477.93581 50067.04279 50782.5207 11493.72654 26977.62882 36006.0215 40621.31307 46466.12297 24323.57284 32954.23304 107352.7109 41431.03961 44670.37007 6665.193496 17972.09208 23258.93644 33615.97151 45239.3688 29494.41285 20343.68375 22479.00875 33313.83278 17352.66344 24080.76256 67901.21881 14090.11941 14932.60268 14701.95389 21183.46489 21533.46995 39034.37628 14042.28147 10323.20694 13517.83487 22390.68285 7045.118138 9158.519314 36259.39194 17132.08878 13856.69518 7299.552445 10645.45626 10398.76096 10229.2269 9077.414805 5593.061202 5916.289691 13312.02706 3506.731828 4419.442634
Data Y:
0.948 0.937 0.892 0.909 0.938 0.924 0.923 0.924 0.923 0.92 0.919 0.919 0.918 0.805 0.854 0.913 0.908 0.902 0.899 0.898 0.896 0.894 0.895 0.798 0.842 0.888 0.881 0.893 0.882 0.875 0.865 0.864 0.863 0.853 0.855 0.852 0.846 0.845 0.845 0.841 0.836 0.834 0.826 0.823 0.823 0.804 0.798 0.799 0.795 0.794 0.792 0.793 0.787 0.785 0.775 0.775 0.774 0.764 0.764 0.762
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