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 computationWed, 25 Oct 2017 23:52:12 +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/t15089699536f5y3as4czk6mix.htm/, Retrieved Sun, 12 May 2024 06:48:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=308052, Retrieved Sun, 12 May 2024 06:48:13 +0000
QR Codes:

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

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-25 21:52:12] [882f73a830550adcc53d3c05ef985140] [Current]
Feedback Forum

Post a new message

Dataset

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

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=308052&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]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=308052&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308052&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 time1 seconds
R ServerBig Analytics Cloud Computing Center






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


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

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

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

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

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

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






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


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

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

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

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

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

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


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