Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
258236 474427 2.55 4.02 265787 469740 2.47 4.3 275062 491481 1.64 3.22 282633 538141 1.59 2.26 298705 576612 2.1 2 311488 596397 2.78 2.02 326673 588261 1.8 2.76 344709 532459 1.82 3.84 354057 504865 4.49 3.91 348781 554529 -0.05 1.27 365101 567192 2.19 1 379106 546473 3.53 1.25 387419 560367 2.84 0.88 392699 584302 1.11 0.55 400643 597774 0.34 0.16
Names of X columns:
BBP Werkloosheid Inflatie Rente_ECSB
R Code
library(corpcor) x <- t(y) (r1 <- pcor.shrink(x)) (r0 <- cor(x)) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Pearson Correlation Matrix',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('r0'),'</pre>',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable0.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Partial Pearson Correlation Matrix (Shrinkage Method)',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('r1'),'</pre>',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