Wessa.net

Send output to:

Data X:
14 53 13 12 12 18 83 16 11 11 11 66 19 14 15 12 67 15 12 6 16 76 14 21 13 18 78 13 12 10 14 53 19 22 12 14 80 15 11 14 15 74 14 10 12 15 76 15 13 9 17 79 16 10 10 19 54 16 8 12 10 67 16 15 12 16 54 16 14 11 18 87 17 10 15 14 58 15 14 12 14 75 15 14 10 17 88 20 11 12 14 64 18 10 11 16 57 16 13 12 18 66 16 9.5 11 11 68 16 14 12 14 54 19 12 13 12 56 16 14 11 17 86 17 11 12 9 80 17 9 13 16 76 16 11 10 14 69 15 15 14 15 78 16 14 12 11 67 14 13 10 16 80 15 9 12 13 54 12 15 8 17 71 14 10 10 15 84 16 11 12 14 74 14 13 12 16 71 10 8 7 9 63 10 20 9 15 71 14 12 12 17 76 16 10 10 13 69 16 10 10 15 74 16 9 10 16 75 14 14 12 16 54 20 8 15 12 52 14 14 10 15 69 14 11 10 11 68 11 13 12 15 65 14 9 13 15 75 15 11 11 17 74 16 15 11 13 75 14 11 12 16 72 16 10 14 14 67 14 14 10 11 63 12 18 12 12 62 16 14 13 12 63 9 11 5 15 76 14 14.5 6 16 74 16 13 12 15 67 16 9 12 12 73 15 10 11 12 70 16 15 10 8 53 12 20 7 13 77 16 12 12 11 80 16 12 14 14 52 14 14 11 15 54 16 13 12 10 80 17 11 13 11 66 18 17 14 12 73 18 12 11 15 63 12 13 12 15 69 16 14 12 14 67 10 13 8 16 54 14 15 11 15 81 18 13 14 15 69 18 10 14 13 84 16 11 12 12 80 17 19 9 17 70 16 13 13 13 69 16 17 11 15 77 13 13 12 13 54 16 9 12 15 79 16 11 12 15 71 16 9 12 16 73 15 12 12 15 72 15 12 11 14 77 16 13 10 15 75 14 13 9 14 69 16 12 12 13 54 16 15 12 7 70 15 22 12 17 73 12 13 9 13 54 17 15 15 15 77 16 13 12 14 82 15 15 12 13 80 13 12.5 12 16 80 16 11 10 12 69 16 16 13 14 78 16 11 9 17 81 16 11 12 15 76 14 10 10 17 76 16 10 14 12 73 16 16 11 16 85 20 12 15 11 66 15 11 11 15 79 16 16 11 9 68 13 19 12 16 76 17 11 12 15 71 16 16 12 10 54 16 15 11 10 46 12 24 7 15 85 16 14 12 11 74 16 15 14 13 88 17 11 11 14 38 13 15 11 18 76 12 12 10 16 86 18 10 13 14 54 14 14 13 14 67 14 13 8 14 69 13 9 11 14 90 16 15 12 12 54 13 15 11 14 76 16 14 13 15 89 13 11 12 15 76 16 8 14 15 73 15 11 13 13 79 16 11 15 17 90 15 8 10 17 74 17 10 11 19 81 15 11 9 15 72 12 13 11 13 71 16 11 10 9 66 10 20 11 15 77 16 10 8 15 65 12 15 11 15 74 14 12 12 16 85 15 14 12 11 54 13 23 9 14 63 15 14 11 11 54 11 16 10 15 64 12 11 8 13 69 11 12 9 15 54 16 10 8 16 84 15 14 9 14 86 17 12 15 15 77 16 12 11 16 89 10 11 8 16 76 18 12 13 11 60 13 13 12 12 75 16 11 12 9 73 13 19 9 16 85 10 12 7 13 79 15 17 13 16 71 16 9 9 12 72 16 12 6 9 69 14 19 8 13 78 10 18 8 13 54 17 15 15 14 69 13 14 6 19 81 15 11 9 13 84 16 9 11 12 84 12 18 8 13 69 13 16 8 10 66 13 24 10 14 81 12 14 8 16 82 17 20 14 10 72 15 18 10 11 54 10 23 8 14 78 14 12 11 12 74 11 14 12 9 82 13 16 12 9 73 16 18 12 11 55 12 20 5 16 72 16 12 12 9 78 12 12 10 13 59 9 17 7 16 72 12 13 12 13 78 15 9 11 9 68 12 16 8 12 69 12 18 9 16 67 14 10 10 11 74 12 14 9 14 54 16 11 12 13 67 11 9 6 15 70 19 11 15 14 80 15 10 12 16 89 8 11 12 13 76 16 19 12 14 74 17 14 11 15 87 12 12 7 13 54 11 14 7 11 61 11 21 5 11 38 14 13 12 14 75 16 10 12 15 69 12 15 3 11 62 16 16 11 15 72 13 14 10 12 70 15 12 12 14 79 16 19 9 14 87 16 15 12 8 62 14 19 9 13 77 16 13 12 9 69 16 17 12 15 69 14 12 10 17 75 11 11 9 13 54 12 14 12 15 72 15 11 8 15 74 15 13 11 14 85 16 12 11 16 52 16 15 12 13 70 11 14 10 16 84 15 12 10 9 64 12 17 12 16 84 12 11 12 11 87 15 18 11 10 79 15 13 8 11 67 16 17 12 15 65 14 13 10 17 85 17 11 11 14 83 14 12 10 8 61 13 22 8 15 82 15 14 12 11 76 13 12 12 16 58 14 12 10 10 72 15 17 12 15 72 12 9 9 9 38 13 21 9 16 78 8 10 6 19 54 14 11 10 12 63 14 12 9 8 66 11 23 9 11 70 12 13 9 14 71 13 12 6 9 67 10 16 10 15 58 16 9 6 13 72 18 17 14 16 72 13 9 10 11 70 11 14 10 12 76 4 17 6 13 50 13 13 12 10 72 16 11 12 11 72 10 12 7 12 88 12 10 8 8 53 12 19 11 12 58 10 16 3 12 66 13 16 6 15 82 15 14 10 11 69 12 20 8 13 68 14 15 9 14 44 10 23 9 10 56 12 20 8 12 53 12 16 9 15 70 11 14 7 13 78 10 17 7 13 71 12 11 6 13 72 16 13 9 12 68 12 17 10 12 67 14 15 11 9 75 16 21 12 9 62 14 18 8 15 67 13 15 11 10 83 4 8 3 14 64 15 12 11 15 68 11 12 12 7 62 11 22 7 14 72 14 12 9
Names of X columns:
TX_Fc_Low TX_Fc_High

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')

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
R Engine error message	Error in array(list(14, 53, 13, 12, 12, 18, 83, 16, 11, 11, 11, 66, 19, : length of 'dimnames' [1] not equal to array extent Execution halted