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, 19 Sep 2018 19:42:24 +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/2018/Sep/19/t1537379177tzhirkst1y93211.htm/, Retrieved Mon, 06 May 2024 02:04:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=315490, Retrieved Mon, 06 May 2024 02:04:06 +0000
QR Codes:

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

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] [] [2018-09-19 17:42:24] [809d7aea9eacf339b2e35e3c8ae0a57c] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
68	63	4
51	61	4
56	60	6
48	62	8
44	68	8
67	77	4
46	70	4
54	69	8
61	65	5
52	64	4
46	76	4
55	71	4
46	63	4
52	63	4
76	79	4
49	65	8
30	74	4
75	78	4
51	75	4
50	73	8
38	52	4
55	76	7
18	55	4
52	69	4
42	76	5
66	61	4
66	61	4
33	55	4
48	53	4
57	68	4
64	72	4
58	65	4
59	54	15
42	55	10
39	66	4
59	64	8
37	76	4
49	64	4
80	83	4
62	71	4
52	74	7
53	70	4
58	70	6
69	67	5
63	61	4
36	62	16
38	53	5
46	71	12
56	64	6
37	72	9
51	58	9
44	59	4
58	79	5
37	49	4
65	71	4
48	64	5
53	65	4
51	63	4
39	70	4
64	62	5
51	62	4
47	65	6
64	64	4
59	65	4
54	55	18
55	75	4
72	72	6
58	64	4
59	73	4
36	67	5
62	75	4
63	71	4
50	58	5
67	67	10
70	77	5
46	58	8
46	55	8
59	75	5
73	81	4
38	54	4
62	67	4
41	56	5
56	64	4
52	69	4
54	66	8
73	75	4
60	75	5
40	61	14
41	59	8
54	68	8
42	43	4
70	61	4
51	70	6
60	67	4
49	73	7
52	72	7
57	64	4
50	59	6
47	65	4
74	72	7
47	70	4
47	54	4
59	66	8
64	73	4
55	64	4
52	61	10
44	59	8
60	63	6
51	66	4
63	68	4
49	81	4
52	72	5
48	53	4
50	61	6
67	77	4
42	54	5
44	75	7
51	70	8
47	60	5
37	63	8
51	57	10
60	70	8
38	67	5
52	44	12
65	81	4
60	69	5
70	71	4
44	67	6
50	60	4
63	66	4
50	61	7
68	69	7
32	57	10
47	65	4
67	74	5
50	56	8
57	74	11
46	69	7
67	76	4
63	68	8
36	60	6
54	72	7
36	74	5
57	57	4
70	73	8
47	58	4
51	71	8
62	62	6
60	64	4
59	58	9
52	67	5
52	76	6
69	67	4
56	78	4
62	72	4
55	62	5
52	68	6
48	71	16
51	70	6
53	61	6
48	50	4
55	54	4

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315490&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
           IM         EM         AM
IM  1.0000000  0.4188059 -0.1674647
EM  0.4188059  1.0000000 -0.1702416
AM -0.1674647 -0.1702416  1.0000000


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

> r0
           IM         EM         AM
IM  1.0000000  0.4188059 -0.1674647
EM  0.4188059  1.0000000 -0.1702416
AM -0.1674647 -0.1702416  1.0000000

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

[TABLE]
[ROW][C]Pearson Correlation Matrix[/C][/ROW]
[ROW][C]
> r0
           IM         EM         AM
IM  1.0000000  0.4188059 -0.1674647
EM  0.4188059  1.0000000 -0.1702416
AM -0.1674647 -0.1702416  1.0000000

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315490&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
           IM         EM         AM
IM  1.0000000  0.4188059 -0.1674647
EM  0.4188059  1.0000000 -0.1702416
AM -0.1674647 -0.1702416  1.0000000






Partial Pearson Correlation Matrix (Shrinkage Method)
> r1
           IM         EM         AM
IM  1.0000000  0.3651419 -0.1020439
EM  0.3651419  1.0000000 -0.1058074
AM -0.1020439 -0.1058074  1.0000000
attr(,"lambda")
[1] 0.09255092
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       IM        EM        AM 
0.8466568 0.8459876 0.9659698 


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

> r1
           IM         EM         AM
IM  1.0000000  0.3651419 -0.1020439
EM  0.3651419  1.0000000 -0.1058074
AM -0.1020439 -0.1058074  1.0000000
attr(,"lambda")
[1] 0.09255092
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       IM        EM        AM 
0.8466568 0.8459876 0.9659698 

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

[TABLE]
[ROW][C]Partial Pearson Correlation Matrix (Shrinkage Method)[/C][/ROW]
[ROW][C]
> r1
           IM         EM         AM
IM  1.0000000  0.3651419 -0.1020439
EM  0.3651419  1.0000000 -0.1058074
AM -0.1020439 -0.1058074  1.0000000
attr(,"lambda")
[1] 0.09255092
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       IM        EM        AM 
0.8466568 0.8459876 0.9659698 

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315490&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
           IM         EM         AM
IM  1.0000000  0.3651419 -0.1020439
EM  0.3651419  1.0000000 -0.1058074
AM -0.1020439 -0.1058074  1.0000000
attr(,"lambda")
[1] 0.09255092
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
       IM        EM        AM 
0.8466568 0.8459876 0.9659698


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