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

Thu, 14 Dec 2017 13:58:54 +0100

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/2017/Dec/14/t1513256766q8jtruxz3klmaf9.htm/, Retrieved Tue, 14 May 2024 03:57:25 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=309494, Retrieved Tue, 14 May 2024 03:57:25 +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] [] [2017-12-14 12:58:54] [9a0500678ac6582dde72933c6904687c] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

0.948	89080.61599	82.1
0.937	54394.33427	82.3
0.892	47681.16746	81.4902439
0.909	53561.89212	82.25365854
0.938	75799.60618	83.19756098
0.924	44874.88121	81.0902439
0.923	59471.01588	80.7
0.924	51865.71799	82.49512195
0.923	50497.2368	81.70731707
0.92	51965.89141	81.34878049
0.919	44477.93581	82.86097561
0.919	50067.04279	81.95304878
0.918	50782.5207	78.74146341
0.805	11493.72654	70.74365854
0.854	26977.62882	80.12204878
0.913	36006.0215	81.40487805
0.908	40621.31307	81.30487805
0.902	46466.12297	83.58780488
0.899	24323.57284	82.15585366
0.898	32954.23304	82.15365854
0.896	107352.7109	82.22926829
0.894	41431.03961	82.67073171
0.895	44670.37007	81.28780488
0.798	6665.193496	72.97073171
0.842	17972.09208	76.81219512
0.888	23258.93644	81.07804878
0.881	33615.97151	83.0902439
0.893	45239.3688	81.1804878
0.882	29494.41285	83.22926829
0.875	20343.68375	78.82439024
0.865	22479.00875	81.43658537
0.864	33313.83278	76.94173171
0.863	17352.66344	77.03414634
0.853	24080.76256	81.94634146
0.855	67901.21881	78.3035122
0.852	14090.11941	77.60243902
0.846	14932.60268	74.51707317
0.845	14701.95389	78.9644878
0.845	21183.46489	74.39739024
0.841	21533.46995	81.12195122
0.836	39034.37628	77.32936585
0.834	14042.28147	75.76341463
0.826	10323.20694	76.134
0.823	13517.83487	77.47804878
0.823	22390.68285	76.72546341
0.804	7045.118138	76.63885366
0.798	9158.519314	74.96097561
0.799	36259.39194	74.6234878
0.795	17132.08878	76.89456098
0.794	13856.69518	76.98209756
0.792	7299.552445	74.46585366
0.793	10645.45626	71.62
0.787	10398.76096	75.05370732
0.785	10229.2269	77.62543902
0.775	9077.414805	79.41685366
0.775	5593.061202	75.33658537
0.774	5916.289691	75.47819512
0.764	13312.02706	75.15214634
0.764	3506.731828	74.81465854
0.762	4419.442634	77.99839024

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

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

Pearson Correlation Matrix
> r0 HDI GDP LIFE-EXPECTANCY HDI 1.0000000 0.7894982 0.7964853 GDP 0.7894982 1.0000000 0.6566224 LIFE-EXPECTANCY 0.7964853 0.6566224 1.0000000

\begin{tabular}{lllllllll}
\hline
Pearson Correlation Matrix \tabularnewline
> r0
                      HDI       GDP LIFE-EXPECTANCY
HDI             1.0000000 0.7894982       0.7964853
GDP             0.7894982 1.0000000       0.6566224
LIFE-EXPECTANCY 0.7964853 0.6566224       1.0000000
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=309494&T=1

[TABLE]
[ROW][C]Pearson Correlation Matrix[/C][/ROW]
[ROW][C]> r0
                      HDI       GDP LIFE-EXPECTANCY
HDI             1.0000000 0.7894982       0.7964853
GDP             0.7894982 1.0000000       0.6566224
LIFE-EXPECTANCY 0.7964853 0.6566224       1.0000000
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=309494&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=309494&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 HDI GDP LIFE-EXPECTANCY HDI 1.0000000 0.7894982 0.7964853 GDP 0.7894982 1.0000000 0.6566224 LIFE-EXPECTANCY 0.7964853 0.6566224 1.0000000

Partial Pearson Correlation Matrix (Shrinkage Method)

> r1
                      HDI        GDP LIFE-EXPECTANCY
HDI             1.0000000 0.56788154      0.58354191
GDP             0.5678815 1.00000000      0.09907049
LIFE-EXPECTANCY 0.5835419 0.09907049      1.00000000
attr(,"lambda")
[1] 0.01926479
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
            HDI             GDP LIFE-EXPECTANCY 
      0.2641061       0.3965464       0.3859924

\begin{tabular}{lllllllll}
\hline
Partial Pearson Correlation Matrix (Shrinkage Method) \tabularnewline
> r1
                      HDI        GDP LIFE-EXPECTANCY
HDI             1.0000000 0.56788154      0.58354191
GDP             0.5678815 1.00000000      0.09907049
LIFE-EXPECTANCY 0.5835419 0.09907049      1.00000000
attr(,"lambda")
[1] 0.01926479
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
            HDI             GDP LIFE-EXPECTANCY 
      0.2641061       0.3965464       0.3859924 
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=309494&T=2

[TABLE]
[ROW][C]Partial Pearson Correlation Matrix (Shrinkage Method)[/C][/ROW]
[ROW][C]> r1
                      HDI        GDP LIFE-EXPECTANCY
HDI             1.0000000 0.56788154      0.58354191
GDP             0.5678815 1.00000000      0.09907049
LIFE-EXPECTANCY 0.5835419 0.09907049      1.00000000
attr(,"lambda")
[1] 0.01926479
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
            HDI             GDP LIFE-EXPECTANCY 
      0.2641061       0.3965464       0.3859924 
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=309494&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=309494&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
                      HDI        GDP LIFE-EXPECTANCY
HDI             1.0000000 0.56788154      0.58354191
GDP             0.5678815 1.00000000      0.09907049
LIFE-EXPECTANCY 0.5835419 0.09907049      1.00000000
attr(,"lambda")
[1] 0.01926479
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
            HDI             GDP LIFE-EXPECTANCY 
      0.2641061       0.3965464       0.3859924

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