Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
-653.1 13389.7 -0.0166 1.5 -2 549.5 12154.4 -0.0122 -8.8 1 605.4 15279.6 -0.0175 7.7 -196.0 14275.2 -0.0178 0.5 -146.2 14604.6 -0.021 -6.6 538.2 14785.1 0.0075 12.4 2 503.4 14328.4 0.0398 -0.9 -2 720.0 10017.1 0.0106 -11.9 -111.9 12910.2 -0.0052 -9.1 2 187.7 17168.9 -0.0176 11.4 2 195.2 13769.2 0.0041 6.4 -631.5 14670.5 -0.0091 1.3 563.6 14673.3 -0.0133 12.6 -1 134.3 13208.9 0.0058 -0.3 739.2 16208.3 0.01 12 -128.0 15175.5 0.0312 6.2 -149.6 13188.9 0.0384 -5 446.1 14869 0.0368 12.9 3 018.8 15180.5 -0.0144 9.4 -4 057.6 9099.9 0.003 -6.2 -659.4 13588.4 0.0003 6.9 1 656.2 17209.6 0.0203 21.1 1 309.3 13266.9 0.0169 11.9 92.1 15615.1 0.0439 11.3 -141.8 13676.8 0.0151 -3.4 -692.3 12093.5 0.0034 -8.3 2 533.3 18998.9 0.0041 13.1 1 422.5 16485.1 0.0734 8.6 -49.4 11047.6 0.0081 -6.9 2 768.7 20556.2 -0.0291 20.7 4 209.1 14595.7 -0.0233 5.3 -2 417.1 12167 0.0083 -15.1 1 096.7 16588.5 0.047 3.5 2 903.1 16726.6 0.001 8.4 2 559.4 16360.4 0.0584 -2.4 2 121.1 18074.5 0.0327 28.1 685.4 14967.9 0.0033 4.4 -1 320.3 14272.1 -0.0384 -14.9 2 744.1 20006.4 -0.0277 12.3 2 418.4 17273 0.0022 8.4 -661.1 14689.1 0.0131 -15 2 673.7 21589.7 0.0128 12.6 2 391.6 14404.4 -0.009 -11.3 -2 681.6 13264.3 0.0042 -20.7 1 330.1 19501.9 0.0272 6.2 326.1 14654.4 0.0501 -2.3 2 385.7 18745 0.0417 -8.9
Names of X columns:
uitvoer invoer wisselkoers consumptie
Type of Correlation
1
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