Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
5560 4085 1209 266 3922 2686 1036 200 3759 2545 1084 130 4138 3071 926 141 4634 3388 1083 163 3996 2652 912 432 4308 3190 910 208 4143 2885 886 372 4429 3295 948 186 5219 3818 1134 267 4929 3226 1226 477 5755 3953 1516 286 5592 3810 1491 291 4163 2877 1086 200 4962 3515 1274 173 5208 3708 1164 336 4755 3450 1205 100 4491 3360 966 165 5732 4110 1462 160 5731 4385 1134 212 5040 3729 1157 154 6102 4309 1676 117 4904 3506 1168 230 5369 3690 1492 187 5578 3911 1413 254 4619 2952 1287 380 4731 3324 1206 201 5011 3417 1054 540 5299 3498 1237 564 4146 2770 1070 306 4625 2907 1264 454 4736 3179 1319 238 4219 3014 1095 110 5116 3483 1497 136 4205 3016 1136 53 4121 2617 1343 161 5103 3534 1343 226 4300 2849 1283 168 4578 3129 1307 142 3809 2578 913 318 5526 3626 1396 504 4247 2813 1186 248 3830 2591 1021 218 4394 2890 1250 254 4826 3369 1248 209 4409 2926 1305 178 4569 3016 1511 42 4106 2878 1103 124 4794 3198 1322 274 3914 2560 1153 201 3793 2573 1096 125 4405 3121 1106 178 4022 2658 1249 115 4100 2869 1016 216 4788 3076 1076 637 3163 2168 939 56 3585 2341 928 316 3903 2570 1142 191 4178 2626 1019 533 3863 2490 978 396 4187 2756 1327 104
Names of X columns:
Type of Correlation
pearson
spearman
kendall
Chart options
Title:
R Code
panel.tau <- function(x, y, digits=2, prefix='', cex.cor) { usr <- par('usr'); on.exit(par(usr)) par(usr = c(0, 1, 0, 1)) rr <- cor.test(x, y, method='kendall') r <- round(rr$p.value,2) txt <- format(c(r, 0.123456789), digits=digits)[1] txt <- paste(prefix, txt, sep='') if(missing(cex.cor)) cex <- 0.5/strwidth(txt) text(0.5, 0.5, txt, cex = cex) } panel.hist <- function(x, ...) { usr <- par('usr'); on.exit(par(usr)) par(usr = c(usr[1:2], 0, 1.5) ) h <- hist(x, plot = FALSE) breaks <- h$breaks; nB <- length(breaks) y <- h$counts; y <- y/max(y) rect(breaks[-nB], 0, breaks[-1], y, col='grey', ...) } bitmap(file='test1.png') pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Kendall tau rank correlations for all pairs of data series',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'pair',1,TRUE) a<-table.element(a,'tau',1,TRUE) a<-table.element(a,'p-value',1,TRUE) a<-table.row.end(a) n <- length(y[,1]) n cor.test(y[1,],y[2,],method='kendall') for (i in 1:(n-1)) { for (j in (i+1):n) { a<-table.row.start(a) dum <- paste('tau(',dimnames(t(x))[[2]][i]) dum <- paste(dum,',') dum <- paste(dum,dimnames(t(x))[[2]][j]) dum <- paste(dum,')') a<-table.element(a,dum,header=TRUE) r <- cor.test(y[i,],y[j,],method='kendall') a<-table.element(a,r$estimate) a<-table.element(a,r$p.value) 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