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, 02 Dec 2015 12:58:38 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Dec/02/t1449061302vhmqbdf9kqa87gq.htm/, Retrieved Fri, 17 May 2024 14:08:02 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=284837, Retrieved Fri, 17 May 2024 14:08:02 +0000
QR Codes:

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

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] [Partial Correlati...] [2015-12-02 12:58:38] [dde0885d390165e184eb3f8febefa56e] [Current]
- 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] [170d69a18d8bca4f88fd44767421f945]
- RMPD    [Multiple Regression] [regressie analyse...] [2015-12-02 18:23:48] [170d69a18d8bca4f88fd44767421f945]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
132	52	173
143	59	184
153	67	194
162	73	211
154	64	196
168	74	220
137	54	188
149	61	188
159	65	207
128	46	167
166	72	217

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'George Udny Yule' @ yule.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 & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=284837&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]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=284837&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=284837&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'George Udny Yule' @ yule.wessa.net






Pearson Correlation Matrix
> r0
          V1        V2        V3
V1 1.0000000 0.9786934 0.9705644
V2 0.9786934 1.0000000 0.9460515
V3 0.9705644 0.9460515 1.0000000


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

> r0
          V1        V2        V3
V1 1.0000000 0.9786934 0.9705644
V2 0.9786934 1.0000000 0.9460515
V3 0.9705644 0.9460515 1.0000000

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

[TABLE]
[ROW][C]Pearson Correlation Matrix[/C][/ROW]
[ROW][C]
> r0
          V1        V2        V3
V1 1.0000000 0.9786934 0.9705644
V2 0.9786934 1.0000000 0.9460515
V3 0.9705644 0.9460515 1.0000000

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=284837&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
          V1        V2        V3
V1 1.0000000 0.9786934 0.9705644
V2 0.9786934 1.0000000 0.9460515
V3 0.9705644 0.9460515 1.0000000






Partial Pearson Correlation Matrix (Shrinkage Method)
> r1
          V1        V2        V3
V1 1.0000000 0.5368459 0.4974771
V2 0.5368459 1.0000000 0.3560177
V3 0.4974771 0.3560177 1.0000000
attr(,"lambda")
[1] 0.1000933
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       V1        V2        V3 
0.1687969 0.1958789 0.2070847 


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

> r1
          V1        V2        V3
V1 1.0000000 0.5368459 0.4974771
V2 0.5368459 1.0000000 0.3560177
V3 0.4974771 0.3560177 1.0000000
attr(,"lambda")
[1] 0.1000933
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       V1        V2        V3 
0.1687969 0.1958789 0.2070847 

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

[TABLE]
[ROW][C]Partial Pearson Correlation Matrix (Shrinkage Method)[/C][/ROW]
[ROW][C]
> r1
          V1        V2        V3
V1 1.0000000 0.5368459 0.4974771
V2 0.5368459 1.0000000 0.3560177
V3 0.4974771 0.3560177 1.0000000
attr(,"lambda")
[1] 0.1000933
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       V1        V2        V3 
0.1687969 0.1958789 0.2070847 

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=284837&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
          V1        V2        V3
V1 1.0000000 0.5368459 0.4974771
V2 0.5368459 1.0000000 0.3560177
V3 0.4974771 0.3560177 1.0000000
attr(,"lambda")
[1] 0.1000933
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       V1        V2        V3 
0.1687969 0.1958789 0.2070847


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