Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2.6 476 0 13642.9 2.5 475 0.2 13734.5 2.5 470 0.5 13742.7 1.6 461 0.4 13315.9 1.4 455 0.2 13217.1 0.8 456 0 13200.6 1.1 517 -0.1 13409.5 1.3 525 0.1 13761.2 1.2 523 0.3 13782.6 1.3 519 0.3 13958.4 1.1 509 -0.1 14030.2 1.3 512 0.4 14143.4 1.2 519 -0.2 14835 1.6 517 0.4 14873.4 1.7 510 0.6 14958.6 1.5 509 0.1 14242.2 0.9 501 -0.1 14098.2 1.5 507 0.1 14143.1 1.4 569 -0.1 14051.4 1.6 580 0.2 14297.4 1.7 578 0.4 14218.2 1.4 565 0.1 14483.2 1.8 547 0.1 14469.2 1.7 555 0.3 14536.1 1.4 562 -0.2 15195.1 1.2 561 0.2 15397.8 1 555 0.6 15193.6 1.7 544 0.4 14474.7 2.4 537 0.3 14366.1 2 543 0 14319.9 2.1 594 -0.2 14332.4 2 611 0.2 14718 1.8 613 0.2 14645.3 2.7 611 0.3 14910.2 2.3 594 -0.1 15007.7 1.9 595 0.4 15065.5 2 591 -0.6 15616.2 2.3 589 0.3 15609.3 2.8 584 0.6 15601.7 2.4 573 0.4 14942.4 2.3 567 0.3 14995.5 2.7 569 0.1 14747.8 2.7 621 -0.1 14452.7 2.9 629 0.3 14957.5 3 628 0.5 14787.6 2.2 612 0.2 15286 2.3 595 -0.2 15040.6 2.8 597 0.3 15075.3 2.8 593 -0.5 15833.2 2.8 590 0.3 15527.7 2.2 580 0.5 15387.8 2.6 574 0.7 14470.4 2.8 573 0.3 13995.6 2.5 573 0.1 14189.7 2.4 620 -0.1 13881.3 2.3 626 0.1 14135.3 1.9 620 0 13827.5 1.7 588 0.1 14031.3 2 566 0.1 14091.9 2.1 557 0.4 13986.7
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation