Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
21454 -11.5 0.012095933 8.02 8.3 20780 23899 -11 0.017384968 8.03 8.2 19815 24939 -14.9 0.017547503 8.45 8 19761 23580 -16.2 0.014844804 7.74 7.9 21454 24562 -14.4 0.010364842 7.26 7.6 23899 24696 -17.3 0.016214531 7.9 7.6 24939 23785 -15.7 0.014814047 7.34 8.3 23580 23812 -12.6 0.017823834 6.91 8.4 24562 21917 -9.4 0.017980779 7.22 8.4 24696 19713 -8.1 0.015828678 7.47 8.4 23785 19282 -5.4 0.018533858 7.16 8.4 23812 18788 -4.6 0.017385905 8.09 8.6 21917 21453 -4.9 0.015866474 7.91 8.9 19713 24482 -4 0.012585695 7.74 8.8 19282 27474 -3.1 0.011326531 8.01 8.3 18788 27264 -1.3 0.019230769 7.56 7.5 21453 27349 0 0.026056627 7.56 7.2 24482 30632 -0.4 0.022604071 8.06 7.4 27474 29429 3 0.024091466 8.06 8.8 27264 30084 0.4 0.022602321 7.87 9.3 27349 26290 1.2 0.020302507 7.97 9.3 30632 24379 0.6 0.028617986 7.89 8.7 29429 23335 -1.3 0.025515909 7.83 8.2 30084 21346 -3.2 0.022785068 8.17 8.3 26290 21106 -1.8 0.022515213 8.84 8.5 24379 24514 -3.6 0.025666936 8.44 8.6 23335 28353 -4.2 0.03067299 8.38 8.5 21346 30805 -6.9 0.027599358 7.71 8.2 21106 31348 -8 0.025194961 6.58 8.1 24514 34556 -7.5 0.028705741 6.65 7.9 28353 33855 -8.2 0.031399522 6.59 8.6 30805 34787 -7.6 0.031063321 6.38 8.7 31348 32529 -3.7 0.031638643 6.78 8.7 34556 29998 -1.7 0.024653465 6.46 8.5 33855 29257 -0.7 0.025674068 6.61 8.4 34787 28155 0.2 0.028841372 6.46 8.5 32529 30466 0.6 0.026383654 6.58 8.7 29998 35704 2.2 0.023940887 6.48 8.7 29257 39327 3.3 0.017033774 6.67 8.6 28155 39351 5.3 0.019630823 6.7 8.5 30466 42234 5.5 0.021942657 6.58 8.3 35704 43630 6.3 0.018667963 6.47 8 39327 43722 7.7 0.016043298 7.25 8.2 39351 43121 6.5 0.016415604 7.24 8.1 42234 37985 5.5 0.012248047 6.97 8.1 43630 37135 6.9 0.012175089 6.83 8 43722 34646 5.7 0.014883541 7.42 7.9 43121 33026 6.9 0.016433059 7.34 7.9 37985 35087 6.1 0.016621569 7.11 8 37135 38846 4.8 0.017704224 7.16 8 34646 42013 3.7 0.018192319 7.51 7.9 33026 43908 5.8 0.017816092 7.07 8 35087 42868 6.8 0.01278748 6.85 7.7 38846 44423 8.5 0.012885368 7.05 7.2 42013 44167 7.2 0.013697327 7.62 7.5 43908 43636 5 0.011210336 7.66 7.3 42868 44382 4.7 0.015053354 7.2 7 44423 42142 2.3 0.022434368 7.38 7 44167 43452 2.4 0.029425769 7.57 7 43636 36912 0.1 0.030908226 7.31 7.2 44382 42413 1.9 0.03460076 8.33 7.3 42142 45344 1.7 0.036399735 7.38 7.1 43452 44873 2 0.043864625 7.41 6.8 36912 47510 -1.9 0.041501976 7.81 6.4 42413 49554 0.5 0.052105908 7.24 6.1 45344 47369 -1.3 0.058047493 7.88 6.5 44873 45998 -3.3 0.059116074 8.52 7.7 47510 48140 -2.8 0.053927095 7.66 7.9 49554 48441 -8 0.05462737 8.5 7.5 47369 44928 -13.9 0.047245565 8.82 6.9 45998 40454 -21.9 0.031359852 8.61 6.6 48140 38661 -28.8 0.026291513 8.2 6.9 48441 37246 -27.6 0.023153252 7.31 7.7 44928 36843 -31.4 0.019339537 7.43 8 40454 36424 -31.8 0.006158305 7.33 8 38661 37594 -29.4 0.005963676 7.53 7.7 37246 38144 -27.6 -0.003671861 7.61 7.3 36843 38737 -23.6 -0.011043819 7.17 7.4 36424 34560 -22.8 -0.016833525 6.81 8.1 37594 36080 -18.2 -0.007755393 6.9 8.3 38144 33508 -17.8 -0.011925952 7.33 8.1 38737 35462 -14.2 -0.00971826 7.36 7.9 34560 33374 -8.8 -0.001166024 6.33 7.9 36080 32110 -7.9 0.002606742 6.95 8.3 33508 35533 -7 0.006196121 7.25 8.6 35462 35532 -7 0.00698049 6.46 8.7 33374 37903 -3.6 0.016561656 6.51 8.5 32110 36763 -2.4 0.01796461 6.31 8.3 35533 40399 -4.9 0.022741573 5.93 8 35532 44164 -7.7 0.024585735 5.86 8.1 37903 44496 -6.5 0.025682617 5.85 8.9 36763 43110 -5.1 0.02317851 5.82 8.9 40399 43880 -3.4 0.029093857 6.17 8.7 44164 43930 -2.8 0.030071126 5.7 8.3 44496
Names of X columns:
Vacatures Ondernemersvertrouwen Inflatie Rente Werkloosheidsgraad Vacatures_3m
Type of Correlation
kendall
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=par1) 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') n <- length(y[,1]) n a<-table.start() a<-table.row.start(a) a<-table.element(a,paste('Correlations for all pairs of data series (method=',par1,')',sep=''),n+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,' ',header=TRUE) for (i in 1:n) { a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE) } a<-table.row.end(a) for (i in 1:n) { a<-table.row.start(a) a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE) for (j in 1:n) { r <- cor.test(y[i,],y[j,],method=par1) a<-table.element(a,round(r$estimate,3)) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Correlations for all pairs of data series with p-values',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'pair',1,TRUE) a<-table.element(a,'Pearson r',1,TRUE) a<-table.element(a,'Spearman rho',1,TRUE) a<-table.element(a,'Kendall tau',1,TRUE) a<-table.row.end(a) cor.test(y[1,],y[2,],method=par1) for (i in 1:(n-1)) { for (j in (i+1):n) { a<-table.row.start(a) dum <- paste(dimnames(t(x))[[2]][i],';',dimnames(t(x))[[2]][j],sep='') a<-table.element(a,dum,header=TRUE) rp <- cor.test(y[i,],y[j,],method='pearson') a<-table.element(a,round(rp$estimate,4)) rs <- cor.test(y[i,],y[j,],method='spearman') a<-table.element(a,round(rs$estimate,4)) rk <- cor.test(y[i,],y[j,],method='kendall') a<-table.element(a,round(rk$estimate,4)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value',header=T) a<-table.element(a,paste('(',round(rp$p.value,4),')',sep='')) a<-table.element(a,paste('(',round(rs$p.value,4),')',sep='')) a<-table.element(a,paste('(',round(rk$p.value,4),')',sep='')) a<-table.row.end(a) } } a<-table.end(a) table.save(a,file='mytable1.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