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 computationFri, 06 Jan 2017 21:59:40 +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/2017/Jan/06/t14837363846qs8ijbzjvodzsy.htm/, Retrieved Tue, 14 May 2024 11:36:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=303198, Retrieved Tue, 14 May 2024 11:36:05 +0000
QR Codes:

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

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] [] [2017-01-06 20:59:40] [08d27b3533b650fb54bfb8c53950c2f3] [Current]
Feedback Forum

Post a new message

Dataset

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

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=303198&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=303198&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=303198&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center






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


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

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

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

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=303198&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 Depression   Learning   Software
Happiness   1.0000000  0.2870953 -0.5829328  0.2485752  0.1642310
Sport1      0.2870953  1.0000000 -0.3294018  0.1431588  0.1138832
Depression -0.5829328 -0.3294018  1.0000000 -0.2309377 -0.1636105
Learning    0.2485752  0.1431588 -0.2309377  1.0000000  0.6234459
Software    0.1642310  0.1138832 -0.1636105  0.6234459  1.0000000






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


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

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

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

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=303198&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  Depression    Learning      Software
Happiness   1.0000000000  0.11663049 -0.49756263  0.10927442 -0.0001155217
Sport1      0.1166304900  1.00000000 -0.19597380  0.03059948  0.0259212681
Depression -0.4975626271 -0.19597380  1.00000000 -0.06721217 -0.0193344037
Learning    0.1092744180  0.03059948 -0.06721217  1.00000000  0.5793966129
Software   -0.0001155217  0.02592127 -0.01933440  0.57939661  1.0000000000
attr(,"lambda")
[1] 0.04089591
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
 Happiness     Sport1 Depression   Learning   Software 
 0.6644417  0.8826398  0.6526777  0.6170832  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')