Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
104 54 33 191 81 69 40 190 101 81 38 220 92 55 47 194 83 29 32 144 101 45 46 192 64 47 51 162 57 28 11 96 108 89 68 265 121 62 39 222 99 56 27 182 109 54 40 203 96 77 25 198 88 44 27 159 91 73 32 196 71 44 25 140 85 43 35 163 93 47 37 177 64 41 18 123 48 34 18 100 96 73 58 227 95 72 38 205 74 32 27 133 91 51 48 190
Names of X columns:
Vlaams Waals Brussels Totaal
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