Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
290284 1.0682 0.8106 0.3932 305831 1.0322 0.7811 0.3594 300444 1.0089 0.7530 0.3480 313157 1.0260 0.7660 0.3526 339266 1.1273 0.8750 0.3853 348618 1.2750 1.0410 0.4350 392328 1.3540 1.0790 0.4890 404302 1.3847 1.0941 0.5146 422683 1.4561 1.2523 0.5693 358412 1.3302 1.0225 0.4630 415744 1.4555 1.2018 0.5894 431060 1.6051 1.4405 0.6610 335519 1.7076 1.5318 0.7183 315217 1.6508 1.4758 0.6719 299182 1.5956 1.4154 0.5960
Names of X columns:
insch_diesel Psuper Pdiesel Plpg
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