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, 15 Dec 2016 12:17:04 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Dec/15/t14818007122ucn4kk6vntjcwi.htm/, Retrieved Fri, 03 May 2024 09:12:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=299872, Retrieved Fri, 03 May 2024 09:12:40 +0000
QR Codes:

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

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] [Paper Statistiek] [2016-12-15 11:17:04] [1e2703d0f11438bcd65480dae45a3781] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
12	22	24
12	23	20
12	19	22
12	25	20
13	22	19
13	24	23
13	23	21
13	22	19
13	25	19
13	25	21
13	24	21
13	26	22
13	21	22
13	24	21
13	22	21
13	21	21
14	24	20
14	23	22
14	24	22
14	22	24
14	23	21
14	24	19
14	25	19
14	23	23
14	25	21
14	20	21
14	24	19
14	23	21
14	23	19
14	25	21
14	26	21
14	24	23
14	24	19
14	25	19
15	21	19
15	25	18
15	25	22
15	26	18
15	25	22
15	24	18
15	28	22
15	25	22
15	24	19
15	25	22
15	25	19
15	24	19
15	23	19
15	21	19
15	25	21
15	27	21
15	23	20
15	28	19
15	22	19
15	24	22
15	25	26
15	24	19
15	24	21
15	26	21
15	21	20
15	25	23
15	24	22
15	24	22
15	25	22
15	23	21
15	21	21
15	22	22
15	26	23
15	25	18
15	26	24
15	22	22
15	24	21
15	27	21
15	24	21
16	24	23
16	26	21
16	25	23
16	24	21
16	24	19
16	24	21
16	25	21
16	24	21
16	26	23
16	24	23
16	25	20
16	25	20
16	28	19
16	24	23
16	24	22
16	24	19
16	26	23
16	21	22
16	24	22
16	25	21
16	26	21
16	25	21
16	25	22
16	26	25
16	27	21
16	26	23
16	21	19
16	25	22
16	24	20
16	24	21
16	24	25
16	28	21
16	24	19
16	23	23
16	25	22
16	24	21
16	23	24
16	25	21
16	25	19
16	25	18
16	23	19
16	24	20
16	25	19
16	23	22
17	26	21
17	27	22
17	28	24
17	23	28
17	25	19
17	25	18
17	26	23
17	27	19
17	23	23
17	28	19
17	26	22
17	22	21
17	27	19
17	23	21
17	24	23
17	25	22
17	26	19
17	26	19
17	23	21
17	26	22
17	25	21
17	26	20
17	28	23
17	25	22
17	24	23
17	28	22
17	25	21
17	27	20
18	21	18
18	25	18
18	25	20
18	27	19
18	26	21
18	27	24
18	25	19
18	28	20
18	25	19
18	27	23
18	25	22
18	23	21
19	23	24
19	29	21
19	26	21
20	25	22

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=299872&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
           TVDCSUM      SKSUM        Age
TVDCSUM 1.00000000 0.40636221 0.05090558
SKSUM   0.40636221 1.00000000 0.01069848
Age     0.05090558 0.01069848 1.00000000


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

> r0
           TVDCSUM      SKSUM        Age
TVDCSUM 1.00000000 0.40636221 0.05090558
SKSUM   0.40636221 1.00000000 0.01069848
Age     0.05090558 0.01069848 1.00000000

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

[TABLE]
[ROW][C]Pearson Correlation Matrix[/C][/ROW]
[ROW][C]
> r0
           TVDCSUM      SKSUM        Age
TVDCSUM 1.00000000 0.40636221 0.05090558
SKSUM   0.40636221 1.00000000 0.01069848
Age     0.05090558 0.01069848 1.00000000

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=299872&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
           TVDCSUM      SKSUM        Age
TVDCSUM 1.00000000 0.40636221 0.05090558
SKSUM   0.40636221 1.00000000 0.01069848
Age     0.05090558 0.01069848 1.00000000






Partial Pearson Correlation Matrix (Shrinkage Method)
> r1
           TVDCSUM        SKSUM          Age
TVDCSUM 1.00000000  0.359414546  0.044611972
SKSUM   0.35941455  1.000000000 -0.007211701
Age     0.04461197 -0.007211701  1.000000000
attr(,"lambda")
[1] 0.1154196
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
  TVDCSUM     SKSUM       Age 
0.8690554 0.8707432 0.9979204 


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

> r1
           TVDCSUM        SKSUM          Age
TVDCSUM 1.00000000  0.359414546  0.044611972
SKSUM   0.35941455  1.000000000 -0.007211701
Age     0.04461197 -0.007211701  1.000000000
attr(,"lambda")
[1] 0.1154196
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
  TVDCSUM     SKSUM       Age 
0.8690554 0.8707432 0.9979204 

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

[TABLE]
[ROW][C]Partial Pearson Correlation Matrix (Shrinkage Method)[/C][/ROW]
[ROW][C]
> r1
           TVDCSUM        SKSUM          Age
TVDCSUM 1.00000000  0.359414546  0.044611972
SKSUM   0.35941455  1.000000000 -0.007211701
Age     0.04461197 -0.007211701  1.000000000
attr(,"lambda")
[1] 0.1154196
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
  TVDCSUM     SKSUM       Age 
0.8690554 0.8707432 0.9979204 

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=299872&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
           TVDCSUM        SKSUM          Age
TVDCSUM 1.00000000  0.359414546  0.044611972
SKSUM   0.35941455  1.000000000 -0.007211701
Age     0.04461197 -0.007211701  1.000000000
attr(,"lambda")
[1] 0.1154196
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
  TVDCSUM     SKSUM       Age 
0.8690554 0.8707432 0.9979204


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