FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_partialcorrelationmatrix.wasp
Title produced by softwarePartial Correlation Matrix
Date of computationSun, 20 Sep 2015 11:11:45 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Sep/20/t1442744082i6udwtq3z0g3fxl.htm/, Retrieved Thu, 16 May 2024 19:28:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=280611, Retrieved Thu, 16 May 2024 19:28:14 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact467

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Partial Correlation Matrix] [] [2015-09-20 10:11:45] [63a9f0ea7bb98050796b649e85481845] [Current]
- R  D    [Partial Correlation Matrix] [] [2015-12-15 16:03:25] [360405f86b14d8f4815c93d2e1ab1814]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
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

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 1 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=280611&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=280611&T=0

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

As an alternative you can also use a QR Code:  
QR Code


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

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net






Pearson Correlation Matrix
> r0
            Happiness     Sport1   Learning Depression   Software
Happiness   1.0000000  0.2870953  0.2485752 -0.5829328  0.1642310
Sport1      0.2870953  1.0000000  0.1431588 -0.3294018  0.1138832
Learning    0.2485752  0.1431588  1.0000000 -0.2309377  0.6234459
Depression -0.5829328 -0.3294018 -0.2309377  1.0000000 -0.1636105
Software    0.1642310  0.1138832  0.6234459 -0.1636105  1.0000000


\begin{tabular}{lllllllll}
\hline
Pearson Correlation Matrix \tabularnewline

> r0
            Happiness     Sport1   Learning Depression   Software
Happiness   1.0000000  0.2870953  0.2485752 -0.5829328  0.1642310
Sport1      0.2870953  1.0000000  0.1431588 -0.3294018  0.1138832
Learning    0.2485752  0.1431588  1.0000000 -0.2309377  0.6234459
Depression -0.5829328 -0.3294018 -0.2309377  1.0000000 -0.1636105
Software    0.1642310  0.1138832  0.6234459 -0.1636105  1.0000000

 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=280611&T=1

[TABLE]
[ROW][C]Pearson Correlation Matrix[/C][/ROW]
[ROW][C]
> r0
            Happiness     Sport1   Learning Depression   Software
Happiness   1.0000000  0.2870953  0.2485752 -0.5829328  0.1642310
Sport1      0.2870953  1.0000000  0.1431588 -0.3294018  0.1138832
Learning    0.2485752  0.1431588  1.0000000 -0.2309377  0.6234459
Depression -0.5829328 -0.3294018 -0.2309377  1.0000000 -0.1636105
Software    0.1642310  0.1138832  0.6234459 -0.1636105  1.0000000

[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=280611&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Pearson Correlation Matrix
> r0
            Happiness     Sport1   Learning Depression   Software
Happiness   1.0000000  0.2870953  0.2485752 -0.5829328  0.1642310
Sport1      0.2870953  1.0000000  0.1431588 -0.3294018  0.1138832
Learning    0.2485752  0.1431588  1.0000000 -0.2309377  0.6234459
Depression -0.5829328 -0.3294018 -0.2309377  1.0000000 -0.1636105
Software    0.1642310  0.1138832  0.6234459 -0.1636105  1.0000000






Partial Pearson Correlation Matrix (Shrinkage Method)
> r1
               Happiness      Sport1    Learning  Depression      Software
Happiness   1.0000000000  0.11663049  0.10927442 -0.49756263 -0.0001155217
Sport1      0.1166304900  1.00000000  0.03059948 -0.19597380  0.0259212681
Learning    0.1092744180  0.03059948  1.00000000 -0.06721217  0.5793966129
Depression -0.4975626271 -0.19597380 -0.06721217  1.00000000 -0.0193344037
Software   -0.0001155217  0.02592127  0.57939661 -0.01933440  1.0000000000
attr(,"lambda")
[1] 0.04089591
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
 Happiness     Sport1   Learning Depression   Software 
 0.6644417  0.8826398  0.6170832  0.6526777  0.6413896 


\begin{tabular}{lllllllll}
\hline
Partial Pearson Correlation Matrix (Shrinkage Method) \tabularnewline

> r1
               Happiness      Sport1    Learning  Depression      Software
Happiness   1.0000000000  0.11663049  0.10927442 -0.49756263 -0.0001155217
Sport1      0.1166304900  1.00000000  0.03059948 -0.19597380  0.0259212681
Learning    0.1092744180  0.03059948  1.00000000 -0.06721217  0.5793966129
Depression -0.4975626271 -0.19597380 -0.06721217  1.00000000 -0.0193344037
Software   -0.0001155217  0.02592127  0.57939661 -0.01933440  1.0000000000
attr(,"lambda")
[1] 0.04089591
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
 Happiness     Sport1   Learning Depression   Software 
 0.6644417  0.8826398  0.6170832  0.6526777  0.6413896 

 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=280611&T=2

[TABLE]
[ROW][C]Partial Pearson Correlation Matrix (Shrinkage Method)[/C][/ROW]
[ROW][C]
> r1
               Happiness      Sport1    Learning  Depression      Software
Happiness   1.0000000000  0.11663049  0.10927442 -0.49756263 -0.0001155217
Sport1      0.1166304900  1.00000000  0.03059948 -0.19597380  0.0259212681
Learning    0.1092744180  0.03059948  1.00000000 -0.06721217  0.5793966129
Depression -0.4975626271 -0.19597380 -0.06721217  1.00000000 -0.0193344037
Software   -0.0001155217  0.02592127  0.57939661 -0.01933440  1.0000000000
attr(,"lambda")
[1] 0.04089591
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
 Happiness     Sport1   Learning Depression   Software 
 0.6644417  0.8826398  0.6170832  0.6526777  0.6413896 

[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=280611&T=2

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

As an alternative you can also use a QR Code:  
QR Code


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

Partial Pearson Correlation Matrix (Shrinkage Method)
> r1
               Happiness      Sport1    Learning  Depression      Software
Happiness   1.0000000000  0.11663049  0.10927442 -0.49756263 -0.0001155217
Sport1      0.1166304900  1.00000000  0.03059948 -0.19597380  0.0259212681
Learning    0.1092744180  0.03059948  1.00000000 -0.06721217  0.5793966129
Depression -0.4975626271 -0.19597380 -0.06721217  1.00000000 -0.0193344037
Software   -0.0001155217  0.02592127  0.57939661 -0.01933440  1.0000000000
attr(,"lambda")
[1] 0.04089591
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
 Happiness     Sport1   Learning Depression   Software 
 0.6644417  0.8826398  0.6170832  0.6526777  0.6413896


Figures (Output of Computation)

Input Parameters & R Code

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