Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
223981 1.0682 0.8106 0.3932 182716 1.0322 0.7811 0.3594 167003 1.0089 0.7530 0.3480 145431 1.0260 0.7660 0.3526 145227 1.1273 0.8750 0.3853 130347 1.2750 1.0410 0.4350 132220 1.3540 1.0790 0.4890 118809 1.3847 1.0941 0.5146 110953 1.4561 1.2523 0.5693 115619 1.3302 1.0225 0.4630 127396 1.4555 1.2018 0.5894 134662 1.6051 1.4405 0.6610 145640 1.7076 1.5318 0.7183 164220 1.6508 1.4758 0.6719 173228 1.5956 1.4154 0.5960
Names of X columns:
insch_super 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