Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2849.27 10872 594 17.8 2921.44 10625 595 17.9 2981.85 10407 591 17.4 3080.58 10463 589 16.7 3106.22 10556 584 16 3119.31 10646 573 16.6 3061.26 10702 567 19.1 3097.31 11353 569 17.8 3161.69 11346 621 17.2 3257.16 11451 629 18.6 3277.01 11964 628 16.3 3295.32 12574 612 15.1 3363.99 13031 595 19.2 3494.17 13812 597 17.7 3667.03 14544 593 19.1 3813.06 14931 590 18 3917.96 14886 580 17.5 3895.51 16005 574 17.8 3801.06 17064 573 21.1 3570.12 15168 573 17.2 3701.61 16050 620 19.4 3862.27 15839 626 19.8 3970.1 15137 620 17.6 4138.52 14954 588 16.2 4199.75 15648 566 19.5 4290.89 15305 557 19.9 4443.91 15579 561 20 4502.64 16348 549 17.3 4356.98 15928 532 18.9 4591.27 16171 526 18.6 4696.96 15937 511 21.4 4621.4 15713 499 18.6 4562.84 15594 555 19.8 4202.52 15683 565 20.8 4296.49 16438 542 19.6 4435.23 17032 527 17.7 4105.18 17696 510 19.8 4116.68 17745 514 22.2 3844.49 19394 517 20.7 3720.98 20148 508 17.9 3674.4 20108 493 20.9 3857.62 18584 490 21.2 3801.06 18441 469 21.4 3504.37 18391 478 23 3032.6 19178 528 21.3 3047.03 18079 534 23.9 2962.34 18483 518 22.4 2197.82 19644 506 18.3 2014.45 19195 502 22.8 1862.83 19650 516 22.3 1905.41 20830 528 17.8 1810.99 23595 533 16.4 1670.07 22937 536 16 1864.44 21814 537 16.4 2052.02 21928 524 17.7 2029.6 21777 536 16.6 2070.83 21383 587 16.2 2293.41 21467 597 18.3 2443.27 22052 581 17.6 2513.17 22680 564 15.1
Names of X columns:
bel goud wklh uitv
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