Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
12 22 24 12 23 20 12 19 22 12 25 20 13 22 19 13 24 23 13 23 21 13 22 19 13 25 19 13 25 21 13 24 21 13 26 22 13 21 22 13 24 21 13 22 21 13 21 21 14 24 20 14 23 22 14 24 22 14 22 24 14 23 21 14 24 19 14 25 19 14 23 23 14 25 21 14 20 21 14 24 19 14 23 21 14 23 19 14 25 21 14 26 21 14 24 23 14 24 19 14 25 19 15 21 19 15 25 18 15 25 22 15 26 18 15 25 22 15 24 18 15 28 22 15 25 22 15 24 19 15 25 22 15 25 19 15 24 19 15 23 19 15 21 19 15 25 21 15 27 21 15 23 20 15 28 19 15 22 19 15 24 22 15 25 26 15 24 19 15 24 21 15 26 21 15 21 20 15 25 23 15 24 22 15 24 22 15 25 22 15 23 21 15 21 21 15 22 22 15 26 23 15 25 18 15 26 24 15 22 22 15 24 21 15 27 21 15 24 21 16 24 23 16 26 21 16 25 23 16 24 21 16 24 19 16 24 21 16 25 21 16 24 21 16 26 23 16 24 23 16 25 20 16 25 20 16 28 19 16 24 23 16 24 22 16 24 19 16 26 23 16 21 22 16 24 22 16 25 21 16 26 21 16 25 21 16 25 22 16 26 25 16 27 21 16 26 23 16 21 19 16 25 22 16 24 20 16 24 21 16 24 25 16 28 21 16 24 19 16 23 23 16 25 22 16 24 21 16 23 24 16 25 21 16 25 19 16 25 18 16 23 19 16 24 20 16 25 19 16 23 22 17 26 21 17 27 22 17 28 24 17 23 28 17 25 19 17 25 18 17 26 23 17 27 19 17 23 23 17 28 19 17 26 22 17 22 21 17 27 19 17 23 21 17 24 23 17 25 22 17 26 19 17 26 19 17 23 21 17 26 22 17 25 21 17 26 20 17 28 23 17 25 22 17 24 23 17 28 22 17 25 21 17 27 20 18 21 18 18 25 18 18 25 20 18 27 19 18 26 21 18 27 24 18 25 19 18 28 20 18 25 19 18 27 23 18 25 22 18 23 21 19 23 24 19 29 21 19 26 21 20 25 22
Names of X columns:
TVDCSUM SKSUM Age
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