Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
467 2074 105.9 98.8 460 2049 107.8 100.5 448 2406 108 110.4 443 2558 109 96.4 436 2251 109.5 101.9 431 2059 109.8 106.2 484 2397 108.4 81 510 1747 109.8 94.7 513 1707 110 101 503 2319 109.8 109.4 471 1631 109.8 102.3 471 1627 109.7 90.7 476 1791 108.7 96.2 475 2034 110.5 96.1 470 1997 110.7 106 461 2169 110.8 103.1 455 2028 111 102 456 2253 110.7 104.7 517 2218 109.6 86 525 1855 111.2 92.1 523 2187 111.3 106.9 519 1852 111.2 112.6 509 1570 111 101.7 512 1851 111.1 92 519 1954 110 97.4 517 1828 112.3 97 510 2251 112.6 105.4 509 2277 112.4 102.7 501 2085 112 98.1 507 2282 112.4 104.5 569 2266 111.1 87.4 580 1878 113 89.9 578 2267 113.2 109.8 565 2069 112.8 111.7 547 1746 113 98.6 555 2299 113 96.9 562 2360 111.5 95.1 561 2214 113.6 97 555 2825 113.7 112.7 544 2355 114.3 102.9 537 2333 114.7 97.4 543 3016 114.6 111.4 594 2155 113.4 87.4 611 2172 115.3 96.8 613 2150 115.2 114.1 611 2533 115.8 110.3 594 2058 115.6 103.9 595 2160 115.2 101.6 591 2260 113.7 94.6 589 2498 116.2 95.9 584 2695 116.9 104.7 573 2799 117.1 102.8 567 2946 117.3 98.1 569 2930 117.7 113.9 621 2318 116.5 80.9 629 2540 118.6 95.7 628 2570 118.6 113.2 612 2669 118.4 105.9 595 2450 118.3 108.8 597 2842 118.4 102.3
Names of X columns:
Tw Bv Hicp Tip
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