Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
63 32 23 26 54 86 96 163 122 144 130 143 37 23 6 33 10 32 19 94 228 95 118 83 67 68 18 10 81 114 85 96 130 170 96 29 12 41 4 30 63 100 43 56 171 310 139 76 69 71 31 0 22 22 125 161 291 197 163 115 103 79 92 25 143 158 265 291 440 476 131 153 198 14 9 21 42 195 205 219 276 305 273 180 71 35 9 43 92 81 482 293 287 427 194 102 161 158 16 0 81 238 299 171 420 226 316 265 172 97 13 29 6 186 230 128 283 251 137 133 148 17 8 5 81 49 248 141 266 239 93 154 108 28 21 0 21 41 18 217 172 376 201 183 76 114 11 25 66 29 66 85 206 223 120 61 55 7 27 7 57 5 117 59 88 363 67 51 98 25 2 0 19 26 111 80 318 231 58 59 75 11 17 14 0 34 81 108 115 172 209 72 16 2 0 8 14 3 26 54 101 86 90 88 16 10 1 2 7 45 28 25 89 81 34 50 8 46
Data Y:
38 42 15 22 25 48 52 63 85 62 52 61 32 31 24 22 30 42 40 66 70 53 62 53 43 41 14 17 32 59 46 61 66 74 56 46 29 34 13 27 32 40 48 59 53 72 50 44 31 30 30 13 27 37 55 61 85 67 69 52 43 38 28 19 42 56 66 63 73 78 50 53 45 26 22 25 23 44 48 57 77 63 62 62 36 37 23 22 33 44 56 59 67 72 50 43 51 41 21 15 30 50 50 58 70 62 67 66 44 41 25 27 28 52 44 56 77 67 48 48 44 33 31 22 41 32 55 57 63 56 33 47 41 37 33 18 34 39 46 72 73 72 69 66 57 44 19 28 37 36 51 57 71 60 51 49 41 31 28 25 46 43 50 46 52 71 54 55 49 38 24 19 28 36 61 59 86 83 52 51 50 25 27 27 22 38 46 53 66 71 58 40 42 23 13 26 39 34 48 40 46 44 39 44 32 24 22 23 36 40 32 41 54 44 40 36 33 38
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