Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
31514 50556 -9 0 8.3 1.2 27071 43901 -13 4 8.2 1.7 29462 48572 -18 5 8 1.8 26105 43899 -11 -7 7.9 1.5 22397 37532 -9 -2 7.6 1 23843 40357 -10 1 7.6 1.6 21705 35489 -13 3 8.3 1.5 18089 29027 -11 -2 8.4 1.8 20764 34485 -5 -6 8.4 1.8 25316 42598 -15 10 8.4 1.6 17704 30306 -6 -9 8.4 1.9 15548 26451 -6 0 8.6 1.7 28029 47460 -3 -3 8.9 1.6 29383 50104 -1 -2 8.8 1.3 36438 61465 -3 2 8.3 1.1 32034 53726 -4 1 7.5 1.9 22679 39477 -6 2 7.2 2.6 24319 43895 0 -6 7.4 2.3 18004 31481 -4 4 8.8 2.4 17537 29896 -2 -2 9.3 2.2 20366 33842 -2 0 9.3 2 22782 39120 -6 4 8.7 2.9 19169 33702 -7 1 8.2 2.6 13807 25094 -6 -1 8.3 2.3 29743 51442 -6 0 8.5 2.3 25591 45594 -3 -3 8.6 2.6 29096 52518 -2 -1 8.5 3.1 26482 48564 -5 3 8.2 2.8 22405 41745 -11 6 8.1 2.5 27044 49585 -11 0 7.9 2.9 17970 32747 -11 0 8.6 3.1 18730 33379 -10 -1 8.7 3.1 19684 35645 -14 4 8.7 3.2 19785 37034 -8 -6 8.5 2.5 18479 35681 -9 1 8.4 2.6 10698 20972 -5 -4 8.5 2.9 31956 58552 -1 -4 8.7 2.6 29506 54955 -2 1 8.7 2.4 34506 65540 -5 3 8.6 1.7 27165 51570 -4 -1 8.5 2 26736 51145 -6 2 8.3 2.2 23691 46641 -2 -4 8 1.9 18157 35704 -2 0 8.2 1.6 17328 33253 -2 0 8.1 1.6 18205 35193 -2 0 8.1 1.2 20995 41668 2 -4 8 1.2 17382 34865 1 1 7.9 1.5 9367 21210 -8 9 7.9 1.6 31124 56126 -1 -7 8 1.7 26551 49231 1 -2 8 1.8 30651 59723 -1 2 7.9 1.8 25859 48103 2 -3 8 1.8 25100 47472 2 0 7.7 1.3 25778 50497 1 1 7.2 1.3 20418 40059 -1 2 7.5 1.4 18688 34149 -2 1 7.3 1.1 20424 36860 -2 0 7 1.5 24776 46356 -1 -1 7 2.2 19814 36577 -8 7 7 2.9 12738 23872 -4 -4 7.2 3.1 31566 57276 -6 2 7.3 3.5 30111 56389 -3 -3 7.1 3.6 30019 57657 -3 0 6.8 4.4 31934 62300 -7 4 6.4 4.2 25826 48929 -9 2 6.1 5.2 26835 51168 -11 2 6.5 5.8 20205 39636 -13 2 7.7 5.9 17789 33213 -11 -2 7.9 5.4 20520 38127 -9 -2 7.5 5.5 22518 43291 -17 8 6.9 4.7 15572 30600 -22 5 6.6 3.1 11509 21956 -25 3 6.9 2.6 25447 48033 -20 -5 7.7 2.3 24090 46148 -24 4 8 1.9 27786 50736 -24 0 8 0.6 26195 48114 -22 -2 7.7 0.6 20516 38390 -19 -3 7.3 -0.4 22759 44112 -18 -1 7.4 -1.1 19028 36287 -17 -1 8.1 -1.7 16971 30333 -11 -6 8.3 -0.8 20036 35908 -11 0 8.1 -1.2 22485 40005 -12 1 7.9 -1 18730 35263 -10 -2 7.9 -0.1 14538 26591 -15 5 8.3 0.3
Names of X columns:
Inschrijvingen(zonder_transit) Inschrijvingen(met_transit) Consumentenvertrouwen Evolutie_consumentenvertrouwen Totale_werkloosheid Algemene_prijsindex
Type of Correlation
pearson
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