Wessa.net

Send output to:

Data X:
-1 -175 2.7 2426 -4 353 3.1 756 0 78 -1.1 -3216 -1 -17 9 14551 -6 1506 -2.4 -5356 9 -1142 -7.1 -2968 -5 282 16.7 6477 1 793 -15.3 -16735 0 -891 1 3184 5 624 -1.7 2219 0 -447 2.8 -3394 5 -49 4.2 5062 -2 -325 2.7 -2111 -4 707 -8.7 -2658 6 -565 11.5 2361 5 319 -14.1 -12020 7 245 0.4 -193 0 -483 0.1 5027 8 118 -3.3 1996 -2 -348 3.7 6141 4 58 0.5 3292 -7 454 -4.5 -2454 23 -605 -4.1 -2847 6 127 -1.2 3073 -11 -382 -3.9 -1617 4 -154 -1.1 380 -2 445 0.8 -2601 6 108 2.1 8474 7 907 -0.7 -4129 -4 -555 10 4015 1 -115 -8 -11925 6 -674 -1.5 -1359 8 447 8.9 1190 -18 -220 -6.9 -1460 -5 -72 8 8003 6 549 -4.4 -5217 22 -1030 8.3 -1496 3 103 -1.9 2940 2 -71 -4.9 -2714 -1 1085 2 -3386 -2 -562 -3.2 4287 8 559 -3.2 -3545 -2 -500 -3.8 4587 5 334 7.1 6008 1 376 -4.4 -1903 3 -403 -1.3 2430 0 156 3.5 -45 -9 -470 4.9 2000 -8 -309 -13.7 -1796 5 443 10.8 5292 0 -122 -4.7 -11160 1 -167 1.8 9299 1 716 10.6 6690 -10 262 -6.1 -3066 1 -665 4 -7882 0 646 3.1 1593 -11 -349 -5.9 -7546 6 -85 6.6 4877 4 238 -0.8 -1512 11 -209 -0.6 -2835 1 -497 6.6 6874 -7 1164 0.7 -4753 -11 407 -7.8 5339 -1 -906 1.8 -8492 1 1342 -4.2 -4437 0 -1313 8.2 3785 1 67 -7.1 7430 -4 1556 3.7 3422 1 -1638 -5 -4424 -9 -163 5.6 2217 -3 379 -1.8 -1680 -14 496 -11.3 -3889 0 -638 11.8 4065 1 311 -2.8 -6101 0 -165 9.5 11232 -1 287 -1.4 2251 -5 790 6.2 2661 5 -290 -14.8 -9016 5 825 16.9 6394 -2 -163 -3 -12344 -5 -1429 -6.3 5901 -2 785 -1.2 -3083 -5 261 -4.7 -326 -16 -454 16.3 5086 -5 -267 -11.9 -5450 -11 1232 -3.3 1054 8 0 0.2 -2664 -9 -725 -3.3 -3208 -7 1038 -3.6 817 0 -1135 4.3 1350 -14 442 -1.2 -206 -12 232 -2.5 7529 9 -936 10.4 499 98 271 318 -1154 465 130 -511 744 -735 -177 1000 -848
Names of X columns:
werkloosheid bouwvergunningen omzetcijfer personenwagens
Type of Correlation


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')

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
R Framework error message	Warning: there are blank lines in the 'Data X' field. Please, use NA for missing data - blank lines are simply deleted and are NOT treated as missing values.
R Engine error message	Error in list(-1, -175, 2.7, 2426, -4, 353, 3.1, 756, 0, 78, -1.1, -3216, : argument 373 is empty Calls: array Execution halted