Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
109.57 156.4 377.2 107.08 143.1 332.2 110.33 148.9 364.8 110.36 134 352.4 106.5 118 341.6 104.3 125.3 298.2 107.21 138 355.3 109.34 114 330.9 108.2 109.9 314.5 109.86 151.5 418.9 108.68 129.1 433.2 113.38 121.7 367 117.12 126.1 422.9 116.23 114.3 352.1 114.75 124.7 419.8 115.81 111.9 432.7 115.86 120 414.2 117.8 119.5 387.7 117.11 137.8 297.2 116.31 105.4 357.4 118.38 135.4 384.2 121.57 182.5 425.2 121.65 129.6 385.3 124.2 147.5 355.4 126.12 128.9 409.8 128.6 119.7 421.2 128.16 149.4 421.8 130.12 136.6 464.2 135.83 118.6 494 138.05 121.4 404.2 134.99 138.9 411.4 132.38 109.5 403.4 128.94 131.7 403.3 128.12 160.3 520.9 127.84 138.1 439.8 132.43 136.7 434.8 134.13 126.6 476.5 134.78 138 454.3 133.13 152 522 129.08 137 498.4 134.48 134.9 439.9 132.86 154.4 450.7 134.08 145.2 447.1 134.54 133.1 451.3 134.51 169.6 466.8 135.97 159.3 498 136.09 124.9 533.6 139.14 138.1 451.9 135.63 162.5 477.1 136.55 136.6 410.4 138.83 148.1 469.5 138.84 142 485.4 135.37 137.9 406.7 132.22 152.5 439.7 134.75 182.8 412.2 135.98 135.3 440.2 136.06 141.8 411.1 138.05 151.7 477.7 139.59 140.6 463.2 140.58 128 320.5
Names of X columns:
Wisselkoers Uitvoer Invoer
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