Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
75 80 73 93 88 93 90 91 89 100 98 96 70 66 73 55 46 53 77 74 69 60 56 47 90 79 87 88 70 79 73 70 69 74 65 70 91 95 93 73 80 79 78 73 70 96 89 93 68 75 78 93 90 81 86 92 88 77 83 78 90 86 82 89 82 86 85 83 78 71 83 76 95 93 96
Names of X columns:
EXAM3 EXAM2 EXAM1
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation