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 computationThu, 26 Oct 2017 16:59:33 +0200
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/Oct/26/t1509030016inyj25o0od274sa.htm/, Retrieved Sun, 12 May 2024 04:12:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=308056, Retrieved Sun, 12 May 2024 04:12:04 +0000
QR Codes:

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

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-10-26 14:59:33] [882f73a830550adcc53d3c05ef985140] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2570 2.88 5331 -5
2669 2.62 3075 -1
2450 2.39 2002 -2
2842 1.7 2306 -5
3440 1.96 1507 -4
2678 2.2 1992 -6
2981 1.87 2487 -2
2260 1.61 3490 -2
2844 1.63 4647 -2
2546 1.23 5594 -2
2456 1.21 5611 2
2295 1.49 5788 1
2379 1.64 6204 -8
2471 1.67 3013 -1
2057 1.77 1931 1
2280 1.81 2549 -1
2351 1.78 1504 2
2276 1.28 2090 2
2548 1.29 2702 1
2311 1.37 2939 -1
2201 1.12 4500 -2
2725 1.5 6208 -2
2408 2.24 6415 -1
2139 2.95 5657 -8
1898 3.08 5964 -4
2539 3.46 3163 -6
2070 3.65 1997 -3
2063 4.39 2422 -3
2565 4.16 1376 -7
2443 5.21 2202 -9
2196 5.8 2683 -11
2799 5.9 3303 -13
2076 5.39 5202 -11
2628 5.47 5231 -9
2292 4.72 4880 -17
2155 3.14 7998 -22
2476 2.63 4977 -25
2138 2.32 3531 -20
1854 1.93 2025 -24
2081 0.62 2205 -24
1795 0.6 1442 -22
1756 -0.37 2238 -19
2237 -1.1 2179 -18
1960 -1.68 3218 -17
1829 -0.77 5139 -11
2524 -1.2 4990 -11
2077 -0.97 4914 -12
2366 -0.12 6084 -10
2185 0.26 5672 -15
2098 0.62 3548 -15
1836 0.7 1793 -15
1863 1.65 2086 -13
2044 1.79 1262 -8
2136 2.28 1743 -13
2931 2.46 1964 -9
3263 2.57 3258 -7
3328 2.32 4966 -4
3570 2.91 4944 -4
2313 3.01 5907 -2
1623 2.87 5561 0
1316 3.11 5321 -2
1507 3.22 3582 -3
1419 3.38 1757 1
1660 3.52 1894 -2
1790 3.41 1192 -1
1733 3.35 1658 1
2086 3.68 1919 -3
1814 3.75 3354 -4
2241 3.6 4529 -9
1943 3.56 5233 -9
1773 3.57 5910 -7
2143 3.85 5164 -14
2087 3.48 5152 -12
1805 3.65 3057 -16
1913 3.66 1855 -20
2296 3.36 1978 -12
2500 3.19 1255 -12
2210 2.81 1693 -10
2526 2.25 2449 -10
2249 2.32 3178 -13
2024 2.85 4831 -16
2091 2.75 6025 -14
2045 2.78 4492 -17
1882 2.26 5174 -24
1831 2.23 5600 -25
1964 1.46 2752 -23
1763 1.19 1925 -17
1688 1.11 2824 -24
2149 1 1041 -20
1823 1.18 1476 -19
2094 1.59 2239 -18
2145 1.51 2727 -16
1791 1.01 4303 -12
1996 0.9 5160 -7
2097 0.63 4103 -6
1796 0.81 5554 -6
1963 0.97 4906 -5
2042 1.14 2677 -4
1746 0.97 1677 -4
2210 0.89 1991 -8
2968 0.62 993 -9
3126 0.36 1800 -6
3708 0.27 2012 -7
3015 0.34 2880 -10
1569 0.02 4705 -11
1518 -0.12 5107 -11
1393 0.09 4482 -12
1615 -0.11 5966 -14
1777 -0.38 4858 -12
1648 -0.65 3036 -9
1463 -0.4 1844 -5
1779 -0.4 2196 -6

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=308056&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=308056&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308056&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
                      bouwvergunningen   Inflatie  huwelijken
bouwvergunningen            1.00000000 0.10751851 -0.06697038
Inflatie                    0.10751851 1.00000000  0.02143729
huwelijken                 -0.06697038 0.02143729  1.00000000
Consumentenvertrouwen       0.22515095 0.11832066 -0.01480900
                      Consumentenvertrouwen
bouwvergunningen                  0.2251509
Inflatie                          0.1183207
huwelijken                       -0.0148090
Consumentenvertrouwen             1.0000000


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

> r0
                      bouwvergunningen   Inflatie  huwelijken
bouwvergunningen            1.00000000 0.10751851 -0.06697038
Inflatie                    0.10751851 1.00000000  0.02143729
huwelijken                 -0.06697038 0.02143729  1.00000000
Consumentenvertrouwen       0.22515095 0.11832066 -0.01480900
                      Consumentenvertrouwen
bouwvergunningen                  0.2251509
Inflatie                          0.1183207
huwelijken                       -0.0148090
Consumentenvertrouwen             1.0000000

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

[TABLE]
[ROW][C]Pearson Correlation Matrix[/C][/ROW]
[ROW][C]
> r0
                      bouwvergunningen   Inflatie  huwelijken
bouwvergunningen            1.00000000 0.10751851 -0.06697038
Inflatie                    0.10751851 1.00000000  0.02143729
huwelijken                 -0.06697038 0.02143729  1.00000000
Consumentenvertrouwen       0.22515095 0.11832066 -0.01480900
                      Consumentenvertrouwen
bouwvergunningen                  0.2251509
Inflatie                          0.1183207
huwelijken                       -0.0148090
Consumentenvertrouwen             1.0000000

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308056&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
                      bouwvergunningen   Inflatie  huwelijken
bouwvergunningen            1.00000000 0.10751851 -0.06697038
Inflatie                    0.10751851 1.00000000  0.02143729
huwelijken                 -0.06697038 0.02143729  1.00000000
Consumentenvertrouwen       0.22515095 0.11832066 -0.01480900
                      Consumentenvertrouwen
bouwvergunningen                  0.2251509
Inflatie                          0.1183207
huwelijken                       -0.0148090
Consumentenvertrouwen             1.0000000






Partial Pearson Correlation Matrix (Shrinkage Method)
> r1
                      bouwvergunningen   Inflatie   huwelijken
bouwvergunningen            1.00000000 0.04485274 -0.031055695
Inflatie                    0.04485274 1.00000000  0.011731146
huwelijken                 -0.03105570 0.01173115  1.000000000
Consumentenvertrouwen       0.10195687 0.05012800 -0.004230511
                      Consumentenvertrouwen
bouwvergunningen                0.101956874
Inflatie                        0.050127996
huwelijken                     -0.004230511
Consumentenvertrouwen           1.000000000
attr(,"lambda")
[1] 0.5354114
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
     bouwvergunningen              Inflatie            huwelijken 
            0.9861466             0.9948659             0.9988812 
Consumentenvertrouwen 
            0.9865599 


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

> r1
                      bouwvergunningen   Inflatie   huwelijken
bouwvergunningen            1.00000000 0.04485274 -0.031055695
Inflatie                    0.04485274 1.00000000  0.011731146
huwelijken                 -0.03105570 0.01173115  1.000000000
Consumentenvertrouwen       0.10195687 0.05012800 -0.004230511
                      Consumentenvertrouwen
bouwvergunningen                0.101956874
Inflatie                        0.050127996
huwelijken                     -0.004230511
Consumentenvertrouwen           1.000000000
attr(,"lambda")
[1] 0.5354114
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
     bouwvergunningen              Inflatie            huwelijken 
            0.9861466             0.9948659             0.9988812 
Consumentenvertrouwen 
            0.9865599 

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

[TABLE]
[ROW][C]Partial Pearson Correlation Matrix (Shrinkage Method)[/C][/ROW]
[ROW][C]
> r1
                      bouwvergunningen   Inflatie   huwelijken
bouwvergunningen            1.00000000 0.04485274 -0.031055695
Inflatie                    0.04485274 1.00000000  0.011731146
huwelijken                 -0.03105570 0.01173115  1.000000000
Consumentenvertrouwen       0.10195687 0.05012800 -0.004230511
                      Consumentenvertrouwen
bouwvergunningen                0.101956874
Inflatie                        0.050127996
huwelijken                     -0.004230511
Consumentenvertrouwen           1.000000000
attr(,"lambda")
[1] 0.5354114
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
     bouwvergunningen              Inflatie            huwelijken 
            0.9861466             0.9948659             0.9988812 
Consumentenvertrouwen 
            0.9865599 

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308056&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
                      bouwvergunningen   Inflatie   huwelijken
bouwvergunningen            1.00000000 0.04485274 -0.031055695
Inflatie                    0.04485274 1.00000000  0.011731146
huwelijken                 -0.03105570 0.01173115  1.000000000
Consumentenvertrouwen       0.10195687 0.05012800 -0.004230511
                      Consumentenvertrouwen
bouwvergunningen                0.101956874
Inflatie                        0.050127996
huwelijken                     -0.004230511
Consumentenvertrouwen           1.000000000
attr(,"lambda")
[1] 0.5354114
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
     bouwvergunningen              Inflatie            huwelijken 
            0.9861466             0.9948659             0.9988812 
Consumentenvertrouwen 
            0.9865599


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 0 ; par2 = no ; par3 = 512 ;
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')