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 computationMon, 11 Jan 2016 08:22:48 +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/2016/Jan/11/t1452500603dhewg748g72xmuw.htm/, Retrieved Tue, 07 May 2024 16:06:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=288423, Retrieved Tue, 07 May 2024 16:06:28 +0000
QR Codes:

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

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] [] [2016-01-11 08:22:48] [458bc02f6d4386c4526d029d1899c9d8] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1 1 0 0 3.2 3.2 10.24 6
0 0 1 0 3.3 0 10.89 7
1 0 1 1 3.0 3 9 2
0 0 1 0 3.5 0 12.25 11
1 0 1 0 3.7 3.7 13.69 13
0 1 0 0 2.7 0 7.29 3
1 0 1 1 3.6 3.6 12.96 17
0 0 1 0 3.5 0 12.25 10
1 1 0 0 3.8 3.8 14.44 4
0 0 1 0 3.4 0 11.56 12
1 0 0 0 3.7 3.7 13.69 7
0 0 1 0 3.5 0 12.25 11
1 0 0 1 2.8 2.8 7.84 3
0 1 0 1 3.8 0 14.44 5
1 0 1 0 4.3 4.3 18.49 1
0 0 0 0 3.3 0 10.89 12
1 0 0 0 3.6 3.6 12.96 18
0 1 0 1 3.6 0 12.96 8
1 1 1 0 3.3 3.3 10.89 6
0 0 0 0 2.8 0 7.84 1

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'Sir Maurice George Kendall' @ kendall.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 Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=288423&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 Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=288423&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=288423&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'Sir Maurice George Kendall' @ kendall.wessa.net






Pearson Correlation Matrix
> r0
              Geslacht       Drugs      Fruit       Sport  Gebgewicht
Geslacht    1.00000000  0.00000000  0.0000000  0.11547005  0.21038067
Drugs       0.00000000  1.00000000 -0.4364358  0.12598816 -0.03443162
Fruit       0.00000000 -0.43643578  1.0000000 -0.11547005  0.23667826
Sport       0.11547005  0.12598816 -0.1154701  1.00000000 -0.09109750
Gebgewicht  0.21038067 -0.03443162  0.2366783 -0.09109750  1.00000000
Inter       0.98640481 -0.01230007  0.0225464  0.04230579  0.33351510
Gebgew2     0.22288281 -0.03301269  0.2240376 -0.08912135  0.99690343
Numeracy   -0.03066497 -0.33681284  0.2350981 -0.10032511  0.27310579
                 Inter     Gebgew2    Numeracy
Geslacht    0.98640481  0.22288281 -0.03066497
Drugs      -0.01230007 -0.03301269 -0.33681284
Fruit       0.02254640  0.22403765  0.23509813
Sport       0.04230579 -0.08912135 -0.10032511
Gebgewicht  0.33351510  0.99690343  0.27310579
Inter       1.00000000  0.34954026 -0.01065885
Gebgew2     0.34954026  1.00000000  0.22087045
Numeracy   -0.01065885  0.22087045  1.00000000


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

> r0
              Geslacht       Drugs      Fruit       Sport  Gebgewicht
Geslacht    1.00000000  0.00000000  0.0000000  0.11547005  0.21038067
Drugs       0.00000000  1.00000000 -0.4364358  0.12598816 -0.03443162
Fruit       0.00000000 -0.43643578  1.0000000 -0.11547005  0.23667826
Sport       0.11547005  0.12598816 -0.1154701  1.00000000 -0.09109750
Gebgewicht  0.21038067 -0.03443162  0.2366783 -0.09109750  1.00000000
Inter       0.98640481 -0.01230007  0.0225464  0.04230579  0.33351510
Gebgew2     0.22288281 -0.03301269  0.2240376 -0.08912135  0.99690343
Numeracy   -0.03066497 -0.33681284  0.2350981 -0.10032511  0.27310579
                 Inter     Gebgew2    Numeracy
Geslacht    0.98640481  0.22288281 -0.03066497
Drugs      -0.01230007 -0.03301269 -0.33681284
Fruit       0.02254640  0.22403765  0.23509813
Sport       0.04230579 -0.08912135 -0.10032511
Gebgewicht  0.33351510  0.99690343  0.27310579
Inter       1.00000000  0.34954026 -0.01065885
Gebgew2     0.34954026  1.00000000  0.22087045
Numeracy   -0.01065885  0.22087045  1.00000000

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

[TABLE]
[ROW][C]Pearson Correlation Matrix[/C][/ROW]
[ROW][C]
> r0
              Geslacht       Drugs      Fruit       Sport  Gebgewicht
Geslacht    1.00000000  0.00000000  0.0000000  0.11547005  0.21038067
Drugs       0.00000000  1.00000000 -0.4364358  0.12598816 -0.03443162
Fruit       0.00000000 -0.43643578  1.0000000 -0.11547005  0.23667826
Sport       0.11547005  0.12598816 -0.1154701  1.00000000 -0.09109750
Gebgewicht  0.21038067 -0.03443162  0.2366783 -0.09109750  1.00000000
Inter       0.98640481 -0.01230007  0.0225464  0.04230579  0.33351510
Gebgew2     0.22288281 -0.03301269  0.2240376 -0.08912135  0.99690343
Numeracy   -0.03066497 -0.33681284  0.2350981 -0.10032511  0.27310579
                 Inter     Gebgew2    Numeracy
Geslacht    0.98640481  0.22288281 -0.03066497
Drugs      -0.01230007 -0.03301269 -0.33681284
Fruit       0.02254640  0.22403765  0.23509813
Sport       0.04230579 -0.08912135 -0.10032511
Gebgewicht  0.33351510  0.99690343  0.27310579
Inter       1.00000000  0.34954026 -0.01065885
Gebgew2     0.34954026  1.00000000  0.22087045
Numeracy   -0.01065885  0.22087045  1.00000000

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=288423&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
              Geslacht       Drugs      Fruit       Sport  Gebgewicht
Geslacht    1.00000000  0.00000000  0.0000000  0.11547005  0.21038067
Drugs       0.00000000  1.00000000 -0.4364358  0.12598816 -0.03443162
Fruit       0.00000000 -0.43643578  1.0000000 -0.11547005  0.23667826
Sport       0.11547005  0.12598816 -0.1154701  1.00000000 -0.09109750
Gebgewicht  0.21038067 -0.03443162  0.2366783 -0.09109750  1.00000000
Inter       0.98640481 -0.01230007  0.0225464  0.04230579  0.33351510
Gebgew2     0.22288281 -0.03301269  0.2240376 -0.08912135  0.99690343
Numeracy   -0.03066497 -0.33681284  0.2350981 -0.10032511  0.27310579
                 Inter     Gebgew2    Numeracy
Geslacht    0.98640481  0.22288281 -0.03066497
Drugs      -0.01230007 -0.03301269 -0.33681284
Fruit       0.02254640  0.22403765  0.23509813
Sport       0.04230579 -0.08912135 -0.10032511
Gebgewicht  0.33351510  0.99690343  0.27310579
Inter       1.00000000  0.34954026 -0.01065885
Gebgew2     0.34954026  1.00000000  0.22087045
Numeracy   -0.01065885  0.22087045  1.00000000






Partial Pearson Correlation Matrix (Shrinkage Method)
> r1
               Geslacht        Drugs        Fruit         Sport  Gebgewicht
Geslacht    1.000000000 -0.003618815 -0.006927852  0.0550790124  0.01822614
Drugs      -0.003618815  1.000000000 -0.201744047  0.0473363349  0.02078778
Fruit      -0.006927852 -0.201744047  1.000000000 -0.0357548335  0.06572371
Sport       0.055079012  0.047336335 -0.035754833  1.0000000000 -0.02447366
Gebgewicht  0.018226136  0.020787776  0.065723706 -0.0244736622  1.00000000
Inter       0.477678018 -0.008995223 -0.007836196  0.0004265436  0.07682023
Gebgew2     0.021989973  0.013208027  0.058219859 -0.0252907248  0.46561584
Numeracy   -0.016839607 -0.147851550  0.064513727 -0.0287769649  0.09143494
                   Inter     Gebgew2    Numeracy
Geslacht    0.4776780179  0.02198997 -0.01683961
Drugs      -0.0089952229  0.01320803 -0.14785155
Fruit      -0.0078361962  0.05821986  0.06451373
Sport       0.0004265436 -0.02529072 -0.02877696
Gebgewicht  0.0768202307  0.46561584  0.09143494
Inter       1.0000000000  0.08594843 -0.02091544
Gebgew2     0.0859484291  1.00000000  0.04754482
Numeracy   -0.0209154438  0.04754482  1.00000000
attr(,"lambda")
[1] 0.5026029
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
  Geslacht      Drugs      Fruit      Sport Gebgewicht      Inter    Gebgew2 
 0.7557947  0.9293857  0.9308171  0.9871565  0.7365811  0.7402586  0.7400433 
  Numeracy 
 0.9456157 


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

> r1
               Geslacht        Drugs        Fruit         Sport  Gebgewicht
Geslacht    1.000000000 -0.003618815 -0.006927852  0.0550790124  0.01822614
Drugs      -0.003618815  1.000000000 -0.201744047  0.0473363349  0.02078778
Fruit      -0.006927852 -0.201744047  1.000000000 -0.0357548335  0.06572371
Sport       0.055079012  0.047336335 -0.035754833  1.0000000000 -0.02447366
Gebgewicht  0.018226136  0.020787776  0.065723706 -0.0244736622  1.00000000
Inter       0.477678018 -0.008995223 -0.007836196  0.0004265436  0.07682023
Gebgew2     0.021989973  0.013208027  0.058219859 -0.0252907248  0.46561584
Numeracy   -0.016839607 -0.147851550  0.064513727 -0.0287769649  0.09143494
                   Inter     Gebgew2    Numeracy
Geslacht    0.4776780179  0.02198997 -0.01683961
Drugs      -0.0089952229  0.01320803 -0.14785155
Fruit      -0.0078361962  0.05821986  0.06451373
Sport       0.0004265436 -0.02529072 -0.02877696
Gebgewicht  0.0768202307  0.46561584  0.09143494
Inter       1.0000000000  0.08594843 -0.02091544
Gebgew2     0.0859484291  1.00000000  0.04754482
Numeracy   -0.0209154438  0.04754482  1.00000000
attr(,"lambda")
[1] 0.5026029
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
  Geslacht      Drugs      Fruit      Sport Gebgewicht      Inter    Gebgew2 
 0.7557947  0.9293857  0.9308171  0.9871565  0.7365811  0.7402586  0.7400433 
  Numeracy 
 0.9456157 

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

[TABLE]
[ROW][C]Partial Pearson Correlation Matrix (Shrinkage Method)[/C][/ROW]
[ROW][C]
> r1
               Geslacht        Drugs        Fruit         Sport  Gebgewicht
Geslacht    1.000000000 -0.003618815 -0.006927852  0.0550790124  0.01822614
Drugs      -0.003618815  1.000000000 -0.201744047  0.0473363349  0.02078778
Fruit      -0.006927852 -0.201744047  1.000000000 -0.0357548335  0.06572371
Sport       0.055079012  0.047336335 -0.035754833  1.0000000000 -0.02447366
Gebgewicht  0.018226136  0.020787776  0.065723706 -0.0244736622  1.00000000
Inter       0.477678018 -0.008995223 -0.007836196  0.0004265436  0.07682023
Gebgew2     0.021989973  0.013208027  0.058219859 -0.0252907248  0.46561584
Numeracy   -0.016839607 -0.147851550  0.064513727 -0.0287769649  0.09143494
                   Inter     Gebgew2    Numeracy
Geslacht    0.4776780179  0.02198997 -0.01683961
Drugs      -0.0089952229  0.01320803 -0.14785155
Fruit      -0.0078361962  0.05821986  0.06451373
Sport       0.0004265436 -0.02529072 -0.02877696
Gebgewicht  0.0768202307  0.46561584  0.09143494
Inter       1.0000000000  0.08594843 -0.02091544
Gebgew2     0.0859484291  1.00000000  0.04754482
Numeracy   -0.0209154438  0.04754482  1.00000000
attr(,"lambda")
[1] 0.5026029
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
  Geslacht      Drugs      Fruit      Sport Gebgewicht      Inter    Gebgew2 
 0.7557947  0.9293857  0.9308171  0.9871565  0.7365811  0.7402586  0.7400433 
  Numeracy 
 0.9456157 

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=288423&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
               Geslacht        Drugs        Fruit         Sport  Gebgewicht
Geslacht    1.000000000 -0.003618815 -0.006927852  0.0550790124  0.01822614
Drugs      -0.003618815  1.000000000 -0.201744047  0.0473363349  0.02078778
Fruit      -0.006927852 -0.201744047  1.000000000 -0.0357548335  0.06572371
Sport       0.055079012  0.047336335 -0.035754833  1.0000000000 -0.02447366
Gebgewicht  0.018226136  0.020787776  0.065723706 -0.0244736622  1.00000000
Inter       0.477678018 -0.008995223 -0.007836196  0.0004265436  0.07682023
Gebgew2     0.021989973  0.013208027  0.058219859 -0.0252907248  0.46561584
Numeracy   -0.016839607 -0.147851550  0.064513727 -0.0287769649  0.09143494
                   Inter     Gebgew2    Numeracy
Geslacht    0.4776780179  0.02198997 -0.01683961
Drugs      -0.0089952229  0.01320803 -0.14785155
Fruit      -0.0078361962  0.05821986  0.06451373
Sport       0.0004265436 -0.02529072 -0.02877696
Gebgewicht  0.0768202307  0.46561584  0.09143494
Inter       1.0000000000  0.08594843 -0.02091544
Gebgew2     0.0859484291  1.00000000  0.04754482
Numeracy   -0.0209154438  0.04754482  1.00000000
attr(,"lambda")
[1] 0.5026029
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
  Geslacht      Drugs      Fruit      Sport Gebgewicht      Inter    Gebgew2 
 0.7557947  0.9293857  0.9308171  0.9871565  0.7365811  0.7402586  0.7400433 
  Numeracy 
 0.9456157


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