Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_partialcorrelationmatrix.wasp

Title produced by software

Partial Correlation Matrix

Date of computation

Fri, 11 Dec 2015 13:06:54 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Dec/11/t1449839275tzvjnw41vx6od5h.htm/, Retrieved Thu, 16 May 2024 16:20:47 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=285935, Retrieved Thu, 16 May 2024 16:20:47 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Partial Correlation Matrix] [partiële pearson...] [2015-12-11 13:06:54] [a05da232bd4bc389022edd498fae0565] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

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

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	'Gertrude Mary Cox' @ cox.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 0 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285935&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285935&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285935&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

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	'Gertrude Mary Cox' @ cox.wessa.net

Pearson Correlation Matrix
> r0 Head_size Brain Age Head_size 1.0000000 0.7995697 -0.1054281 Brain 0.7995697 1.0000000 -0.1694376 Age -0.1054281 -0.1694376 1.0000000

\begin{tabular}{lllllllll}
\hline
Pearson Correlation Matrix \tabularnewline
> r0
           Head_size      Brain        Age
Head_size  1.0000000  0.7995697 -0.1054281
Brain      0.7995697  1.0000000 -0.1694376
Age       -0.1054281 -0.1694376  1.0000000
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285935&T=1

[TABLE]
[ROW][C]Pearson Correlation Matrix[/C][/ROW]
[ROW][C]> r0
           Head_size      Brain        Age
Head_size  1.0000000  0.7995697 -0.1054281
Brain      0.7995697  1.0000000 -0.1694376
Age       -0.1054281 -0.1694376  1.0000000
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285935&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285935&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Pearson Correlation Matrix
> r0 Head_size Brain Age Head_size 1.0000000 0.7995697 -0.1054281 Brain 0.7995697 1.0000000 -0.1694376 Age -0.1054281 -0.1694376 1.0000000

Partial Pearson Correlation Matrix (Shrinkage Method)

> r1
           Head_size      Brain         Age
Head_size 1.00000000  0.7794009  0.04291637
Brain     0.77940094  1.0000000 -0.13712630
Age       0.04291637 -0.1371263  1.00000000
attr(,"lambda")
[1] 0.02245829
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
Head_size     Brain       Age 
0.3883649 0.3817654 0.9707747

\begin{tabular}{lllllllll}
\hline
Partial Pearson Correlation Matrix (Shrinkage Method) \tabularnewline
> r1
           Head_size      Brain         Age
Head_size 1.00000000  0.7794009  0.04291637
Brain     0.77940094  1.0000000 -0.13712630
Age       0.04291637 -0.1371263  1.00000000
attr(,"lambda")
[1] 0.02245829
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
Head_size     Brain       Age 
0.3883649 0.3817654 0.9707747 
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285935&T=2

[TABLE]
[ROW][C]Partial Pearson Correlation Matrix (Shrinkage Method)[/C][/ROW]
[ROW][C]> r1
           Head_size      Brain         Age
Head_size 1.00000000  0.7794009  0.04291637
Brain     0.77940094  1.0000000 -0.13712630
Age       0.04291637 -0.1371263  1.00000000
attr(,"lambda")
[1] 0.02245829
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
Head_size     Brain       Age 
0.3883649 0.3817654 0.9707747 
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285935&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285935&T=2

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Partial Pearson Correlation Matrix (Shrinkage Method)

> r1
           Head_size      Brain         Age
Head_size 1.00000000  0.7794009  0.04291637
Brain     0.77940094  1.0000000 -0.13712630
Age       0.04291637 -0.1371263  1.00000000
attr(,"lambda")
[1] 0.02245829
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
Head_size     Brain       Age 
0.3883649 0.3817654 0.9707747

Parameters (Session):

Parameters (R input):

R code (references can be found in the software module):

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('',RC.texteval('r0'),'
',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('',RC.texteval('r1'),'
',sep=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code