Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1530 4512 1 1297 3738 1 1335 4261 1 1282 3777 1 1590 4177 1 1300 3585 1 1400 3785 1 1255 3559 1 1355 3613 1 1375 3982 1 1340 3443 1 1380 3993 1 1355 3640 1 1522 4208 1 1208 3832 1 1405 3876 1 1358 3497 1 1292 3466 1 1340 3095 1 1400 4424 1 1357 3878 1 1287 4046 1 1275 3804 1 1270 3710 1 1635 4747 1 1505 4423 1 1490 4036 1 1485 4022 1 1310 3454 1 1420 4175 1 1318 3787 1 1432 3796 1 1364 4103 1 1405 4161 1 1432 4158 1 1207 3814 1 1375 3527 1 1350 3748 1 1236 3334 1 1250 3492 1 1350 3962 1 1320 3505 1 1525 4315 1 1570 3804 1 1340 3863 1 1422 4034 1 1506 4308 1 1215 3165 1 1311 3641 1 1300 3644 1 1224 3891 1 1350 3793 1 1335 4270 1 1390 4063 1 1400 4012 1 1225 3458 1 1310 3890 1 1560 4166 2 1330 3935 2 1222 3669 2 1415 3866 2 1175 3393 2 1330 4442 2 1485 4253 2 1470 3727 2 1135 3329 2 1310 3415 2 1154 3372 2 1510 4430 2 1415 4381 2 1468 4008 2 1390 3858 2 1380 4121 2 1432 4057 2 1240 3824 2 1195 3394 2 1225 3558 2 1188 3362 2 1252 3930 2 1315 3835 2 1245 3830 2 1430 3856 2 1279 3249 2 1245 3577 2 1309 3933 2 1412 3850 2 1120 3309 2 1220 3406 2 1280 3506 2 1440 3907 2 1370 4160 2 1192 3318 2 1230 3662 2 1346 3899 2 1290 3700 2 1165 3779 2 1240 3473 2 1132 3490 2 1242 3654 2 1270 3478 2 1218 3495 2 1430 3834 2 1588 3876 2 1320 3661 2 1290 3618 2 1260 3648 2 1425 4032 2 1226 3399 2 1360 3916 2 1620 4430 2 1310 3695 2 1250 3524 2 1295 3571 2 1290 3594 2 1290 3383 2 1275 3499 2 1250 3589 2 1270 3900 2 1362 4114 2 1300 3937 2 1173 3399 2 1256 4200 2 1440 4488 2 1180 3614 2 1306 4051 2 1350 3782 2 1125 3391 2 1165 3124 2 1312 4053 2 1300 3582 2 1270 3666 2 1335 3532 2 1450 4046 2 1310 3667 2 1027 2857 1 1235 3436 1 1260 3791 1 1165 3302 1 1080 3104 1 1127 3171 1 1270 3572 1 1252 3530 1 1200 3175 1 1290 3438 1 1334 3903 1 1380 3899 1 1140 3401 1 1243 3267 1 1340 3451 1 1168 3090 1 1322 3413 1 1249 3323 1 1321 3680 1 1192 3439 1 1373 3853 1 1170 3156 1 1265 3279 1 1235 3707 1 1302 4006 1 1241 3269 1 1078 3071 1 1520 3779 1 1460 3548 1 1075 3292 1 1280 3497 1 1180 3082 1 1250 3248 1 1190 3358 1 1374 3803 1 1306 3566 1 1202 3145 1 1240 3503 1 1316 3571 1 1280 3724 1 1350 3615 1 1180 3203 1 1210 3609 1 1127 3561 1 1324 3979 1 1210 3533 1 1290 3689 1 1100 3158 1 1280 4005 1 1175 3181 1 1160 3479 1 1205 3642 1 1163 3632 1 1022 3069 2 1243 3394 2 1350 3703 2 1237 3165 2 1204 3354 2 1090 3000 2 1355 3687 2 1250 3556 2 1076 2773 2 1120 3058 2 1220 3344 2 1240 3493 2 1220 3297 2 1095 3360 2 1235 3228 2 1105 3277 2 1405 3851 2 1150 3067 2 1305 3692 2 1220 3402 2 1296 3995 2 1175 3318 2 955 2720 2 1070 2937 2 1320 3580 2 1060 2939 2 1130 2989 2 1250 3586 2 1225 3156 2 1180 3246 2 1178 3170 2 1142 3268 2 1130 3389 2 1185 3381 2 1012 2864 2 1280 3740 2 1103 3479 2 1408 3647 2 1300 3716 2 1246 3284 2 1380 4204 2 1350 3735 2 1060 3218 2 1350 3685 2 1220 3704 2 1110 3214 2 1215 3394 2 1104 3233 2 1170 3352 2 1120 3391 2
Names of X columns:
Brain Head_size 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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation