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

Fri, 04 Dec 2015 11:15:58 +0000

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/2015/Dec/04/t1449227879pk0dqnqq1ec8kaw.htm/, Retrieved Thu, 16 May 2024 15:43:41 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=285072, Retrieved Thu, 16 May 2024 15:43:41 +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

101

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Partial Correlation Matrix] [Partial Correlati...] [2015-12-02 12:58:38] [170d69a18d8bca4f88fd44767421f945]
- R  D  [Partial Correlation Matrix] [pearson correlati...] [2015-12-02 17:44:39] [170d69a18d8bca4f88fd44767421f945]
- R  D      [Partial Correlation Matrix] [partiele correlat...] [2015-12-04 11:15:58] [dde0885d390165e184eb3f8febefa56e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

8	78	9.100000381
9.300000191	68	8.699999809
7.5	70	7.199999809
8.899999619	96	8.899999619
10.19999981	74	8.300000191
8.300000191	111	10.89999962
8.800000191	77	10
8.800000191	168	9.100000381
10.69999981	82	8.699999809
11.69999981	89	7.599999905
8.5	149	10.80000019
8.300000191	60	9.5
8.199999809	96	8.800000191
7.900000095	83	9.5
10.30000019	130	8.699999809
7.400000095	145	11.19999981
9.600000381	112	9.699999809
9.300000191	131	9.600000381
10.60000038	80	9.100000381
9.699999809	130	9.199999809
11.60000038	140	8.300000191
8.100000381	154	8.399999619
9.800000191	118	9.399999619
7.400000095	94	9.800000191
9.399999619	119	10.39999962
11.19999981	153	9.899999619
9.100000381	116	9.199999809
10.5	97	10.30000019
11.89999962	176	8.899999619
8.399999619	75	9.600000381
5	134	10.30000019
9.800000191	161	10.39999962
9.800000191	111	9.699999809
10.80000019	114	9.600000381
10.10000038	142	10.69999981
10.89999962	238	10.30000019
9.199999809	78	10.69999981
8.300000191	196	9.600000381
7.300000191	125	10.5
9.399999619	82	7.699999809
9.399999619	125	10.19999981
9.800000191	129	9.899999619
3.599999905	84	8.399999619
8.399999619	183	10.39999962
10.80000019	119	9.199999809
10.10000038	180	13
9	82	8.800000191
10	71	9.199999809
11.30000019	118	7.800000191
11.30000019	121	8.199999809
12.80000019	68	7.400000095
10	112	10.39999962
6.699999809	109	8.899999619

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	'Sir Ronald Aylmer Fisher' @ fisher.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 & 0 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285072&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285072&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285072&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	'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

Pearson Correlation Matrix
> r0 X1 X2 X4 X1 1.0000000 0.115765 -0.1719924 X2 0.1157650 1.000000 0.4332880 X4 -0.1719924 0.433288 1.0000000

\begin{tabular}{lllllllll}
\hline
Pearson Correlation Matrix \tabularnewline
> r0
           X1       X2         X4
X1  1.0000000 0.115765 -0.1719924
X2  0.1157650 1.000000  0.4332880
X4 -0.1719924 0.433288  1.0000000
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285072&T=1

[TABLE]
[ROW][C]Pearson Correlation Matrix[/C][/ROW]
[ROW][C]> r0
           X1       X2         X4
X1  1.0000000 0.115765 -0.1719924
X2  0.1157650 1.000000  0.4332880
X4 -0.1719924 0.433288  1.0000000
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285072&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285072&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 X1 X2 X4 X1 1.0000000 0.115765 -0.1719924 X2 0.1157650 1.000000 0.4332880 X4 -0.1719924 0.433288 1.0000000

Partial Pearson Correlation Matrix (Shrinkage Method)

> r1
           X1        X2         X4
X1  1.0000000 0.1305757 -0.1595590
X2  0.1305757 1.0000000  0.3281119
X4 -0.1595590 0.3281119  1.0000000
attr(,"lambda")
[1] 0.2754169
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       X1        X2        X4 
0.9676840 0.8860640 0.8784838

\begin{tabular}{lllllllll}
\hline
Partial Pearson Correlation Matrix (Shrinkage Method) \tabularnewline
> r1
           X1        X2         X4
X1  1.0000000 0.1305757 -0.1595590
X2  0.1305757 1.0000000  0.3281119
X4 -0.1595590 0.3281119  1.0000000
attr(,"lambda")
[1] 0.2754169
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       X1        X2        X4 
0.9676840 0.8860640 0.8784838 
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285072&T=2

[TABLE]
[ROW][C]Partial Pearson Correlation Matrix (Shrinkage Method)[/C][/ROW]
[ROW][C]> r1
           X1        X2         X4
X1  1.0000000 0.1305757 -0.1595590
X2  0.1305757 1.0000000  0.3281119
X4 -0.1595590 0.3281119  1.0000000
attr(,"lambda")
[1] 0.2754169
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       X1        X2        X4 
0.9676840 0.8860640 0.8784838 
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285072&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285072&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
           X1        X2         X4
X1  1.0000000 0.1305757 -0.1595590
X2  0.1305757 1.0000000  0.3281119
X4 -0.1595590 0.3281119  1.0000000
attr(,"lambda")
[1] 0.2754169
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       X1        X2        X4 
0.9676840 0.8860640 0.8784838

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