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

Sun, 10 Dec 2017 19:00:37 +0100

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/2017/Dec/10/t1512928995fza6dyewluonhqb.htm/, Retrieved Wed, 15 May 2024 10:48:28 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=308943, Retrieved Wed, 15 May 2024 10:48:28 +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

LBE

Estimated Impact

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

-       [Partial Correlation Matrix] [Partial correlati...] [2017-12-10 18:00:37] [3c189a0c4f7caff37e2cfca896353419] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

10 10 10 10 21 36
9 8 8 15 22 32
12 8 6 14 17 33
14 9 10 14 21 39
6 5 8 8 19 34
13 10 10 19 23 39
12 8 7 17 21 36
13 9 10 18 22 33
6 8 6 10 11 30
12 7 7 15 20 39
10 10 9 16 18 37
9 10 6 12 16 37
12 9 7 13 18 35
7 4 6 10 13 32
10 4 4 14 17 36
11 8 6 15 20 36
15 9 8 20 20 41
10 10 9 9 15 36
12 8 8 12 18 37
10 5 6 13 15 29
12 10 6 16 19 39
11 8 10 12 19 37
11 7 8 14 19 32
12 8 8 15 20 36
15 8 7 19 20 43
12 9 4 16 16 30
11 8 9 16 18 33
9 6 8 14 17 28
11 8 10 14 18 30
11 8 8 14 13 28
9 5 6 13 20 39
15 9 7 18 21 34
12 8 8 15 17 34
9 8 5 15 19 29
12 8 10 15 20 32
12 6 2 13 15 33
9 6 6 14 15 27
9 9 7 15 19 35
11 8 5 14 18 38
12 9 8 19 22 40
12 10 7 16 20 34
12 8 7 16 18 34
12 8 10 12 14 26
6 7 7 10 15 39
11 7 6 11 17 34
12 10 10 13 16 39
9 8 6 14 17 26
11 7 5 11 15 30
9 10 8 11 17 34
10 7 8 16 18 34
10 7 5 9 16 29
9 9 8 16 18 41
12 9 10 19 22 43
11 8 7 13 16 31
9 6 7 15 16 33
9 8 7 14 20 34
12 9 7 15 18 30
6 2 2 11 16 23
10 6 4 14 16 29
12 8 6 15 20 35
11 8 7 17 21 40
14 7 9 16 18 27
8 8 9 13 15 30
9 6 4 15 18 27
10 10 9 14 18 29
10 10 9 15 20 33
10 10 8 14 18 32
11 8 7 12 16 33
10 8 9 12 19 36
12 7 7 15 20 34
14 10 6 17 22 45
10 5 7 13 18 30
8 3 2 5 8 22
8 2 3 7 13 24
7 3 4 10 13 25
11 4 5 15 18 26
6 2 2 9 12 27
9 6 6 9 16 27
12 8 8 15 21 35
12 8 5 14 20 36
12 5 4 11 18 32
9 10 10 18 22 35
15 9 10 20 23 35
15 8 10 20 23 36
13 9 9 16 21 37
9 8 5 15 16 33
12 5 5 14 14 25
9 7 7 13 18 35
15 9 10 18 22 37
11 8 9 14 20 36
11 4 8 12 18 35
6 7 8 9 12 29
14 8 8 19 17 35
11 7 8 13 15 31
8 7 8 12 18 30
10 9 7 14 18 37
10 6 6 6 15 36
9 7 8 14 16 35
8 4 2 11 15 32
9 6 5 11 16 34
10 10 4 14 19 37
11 9 9 12 19 36
14 10 10 19 23 39
12 8 6 13 20 37
9 4 4 14 18 31
13 8 10 17 21 40
8 5 6 12 19 38
12 8 7 16 18 35
14 9 7 15 19 38
9 8 8 15 17 32
10 4 6 15 21 41
12 8 5 16 19 28
12 10 6 15 24 40
9 6 7 12 12 25
9 7 6 13 15 28
12 10 9 14 18 37
15 9 9 17 19 37
12 8 7 14 22 40
11 3 6 14 19 26
8 8 7 14 16 30
11 7 7 15 19 32
11 7 8 11 18 31
10 8 7 11 18 28
12 8 8 16 19 34
9 7 7 12 21 39
11 7 4 12 19 33
15 9 10 19 22 43
14 9 8 18 23 37
6 9 8 16 17 31
9 4 2 16 18 31
9 6 6 13 19 34
8 6 4 11 15 32
7 6 4 10 14 27
10 8 9 14 18 34
6 3 2 14 17 28
9 8 6 14 19 32
9 8 7 16 16 39
7 6 4 10 14 28
11 10 10 16 20 39
9 2 3 7 16 32
12 9 7 16 18 36
9 6 4 15 16 31
10 6 8 17 21 39
11 5 4 11 16 23
7 4 5 11 14 25
12 7 6 10 16 32
8 5 5 13 19 32
13 8 9 14 19 36
11 6 6 13 19 39
11 9 8 13 18 31
12 6 4 12 16 32
11 4 4 10 14 28
12 7 8 15 19 34
3 2 4 6 11 28
10 8 10 15 18 38
13 9 8 15 18 35
10 6 5 11 16 32
6 5 3 14 20 26
11 7 7 14 18 32
12 8 6 16 20 28
9 4 5 12 16 31
10 9 5 15 18 33
15 9 9 20 19 38
9 9 2 12 19 38
6 7 7 9 15 36
9 5 7 13 17 31
15 7 5 15 21 36
15 9 9 19 24 43
9 8 4 11 16 37
11 6 5 11 13 28
9 9 9 17 21 35
11 8 7 15 16 34
10 7 6 14 17 40
9 7 8 15 17 31
6 7 7 11 18 41
12 8 6 12 18 35
13 10 8 15 23 38
12 6 6 16 20 37
12 6 7 16 20 31

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	Big 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=308943&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=308943&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308943&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	1 seconds
R Server	Big Analytics Cloud Computing Center

Pearson Correlation Matrix

> r0
                      Perceived_Usefulness Intention_to_Use Relative_Advantage
Perceived_Usefulness             1.0000000        0.4950501          0.4265381
Intention_to_Use                 0.4950501        1.0000000          0.6396942
Relative_Advantage               0.4265381        0.6396942          1.0000000
Perceived_Ease_of_Use            0.6379706        0.5231094          0.4643770
Information_Quality              0.5773201        0.5001447          0.4655791
System_Quality                   0.4295902        0.5328854          0.4297541
                      Perceived_Ease_of_Use Information_Quality System_Quality
Perceived_Usefulness              0.6379706           0.5773201      0.4295902
Intention_to_Use                  0.5231094           0.5001447      0.5328854
Relative_Advantage                0.4643770           0.4655791      0.4297541
Perceived_Ease_of_Use             1.0000000           0.7020148      0.4513270
Information_Quality               0.7020148           1.0000000      0.6266405
System_Quality                    0.4513270           0.6266405      1.0000000

\begin{tabular}{lllllllll}
\hline
Pearson Correlation Matrix \tabularnewline
> r0
                      Perceived_Usefulness Intention_to_Use Relative_Advantage
Perceived_Usefulness             1.0000000        0.4950501          0.4265381
Intention_to_Use                 0.4950501        1.0000000          0.6396942
Relative_Advantage               0.4265381        0.6396942          1.0000000
Perceived_Ease_of_Use            0.6379706        0.5231094          0.4643770
Information_Quality              0.5773201        0.5001447          0.4655791
System_Quality                   0.4295902        0.5328854          0.4297541
                      Perceived_Ease_of_Use Information_Quality System_Quality
Perceived_Usefulness              0.6379706           0.5773201      0.4295902
Intention_to_Use                  0.5231094           0.5001447      0.5328854
Relative_Advantage                0.4643770           0.4655791      0.4297541
Perceived_Ease_of_Use             1.0000000           0.7020148      0.4513270
Information_Quality               0.7020148           1.0000000      0.6266405
System_Quality                    0.4513270           0.6266405      1.0000000
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=308943&T=1

[TABLE]
[ROW][C]Pearson Correlation Matrix[/C][/ROW]
[ROW][C]> r0
                      Perceived_Usefulness Intention_to_Use Relative_Advantage
Perceived_Usefulness             1.0000000        0.4950501          0.4265381
Intention_to_Use                 0.4950501        1.0000000          0.6396942
Relative_Advantage               0.4265381        0.6396942          1.0000000
Perceived_Ease_of_Use            0.6379706        0.5231094          0.4643770
Information_Quality              0.5773201        0.5001447          0.4655791
System_Quality                   0.4295902        0.5328854          0.4297541
                      Perceived_Ease_of_Use Information_Quality System_Quality
Perceived_Usefulness              0.6379706           0.5773201      0.4295902
Intention_to_Use                  0.5231094           0.5001447      0.5328854
Relative_Advantage                0.4643770           0.4655791      0.4297541
Perceived_Ease_of_Use             1.0000000           0.7020148      0.4513270
Information_Quality               0.7020148           1.0000000      0.6266405
System_Quality                    0.4513270           0.6266405      1.0000000
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=308943&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308943&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
                      Perceived_Usefulness Intention_to_Use Relative_Advantage
Perceived_Usefulness             1.0000000        0.4950501          0.4265381
Intention_to_Use                 0.4950501        1.0000000          0.6396942
Relative_Advantage               0.4265381        0.6396942          1.0000000
Perceived_Ease_of_Use            0.6379706        0.5231094          0.4643770
Information_Quality              0.5773201        0.5001447          0.4655791
System_Quality                   0.4295902        0.5328854          0.4297541
                      Perceived_Ease_of_Use Information_Quality System_Quality
Perceived_Usefulness              0.6379706           0.5773201      0.4295902
Intention_to_Use                  0.5231094           0.5001447      0.5328854
Relative_Advantage                0.4643770           0.4655791      0.4297541
Perceived_Ease_of_Use             1.0000000           0.7020148      0.4513270
Information_Quality               0.7020148           1.0000000      0.6266405
System_Quality                    0.4513270           0.6266405      1.0000000

Partial Pearson Correlation Matrix (Shrinkage Method)

> r1
                      Perceived_Usefulness Intention_to_Use Relative_Advantage
Perceived_Usefulness            1.00000000       0.13607936         0.05435773
Intention_to_Use                0.13607936       1.00000000         0.44187354
Relative_Advantage              0.05435773       0.44187354         1.00000000
Perceived_Ease_of_Use           0.33595821       0.14456588         0.07117365
Information_Quality             0.15421399      -0.01954483         0.08683226
System_Quality                  0.04398048       0.25505523         0.04704206
                      Perceived_Ease_of_Use Information_Quality System_Quality
Perceived_Usefulness             0.33595821          0.15421399     0.04398048
Intention_to_Use                 0.14456588         -0.01954483     0.25505523
Relative_Advantage               0.07117365          0.08683226     0.04704206
Perceived_Ease_of_Use            1.00000000          0.44132394    -0.06890087
Information_Quality              0.44132394          1.00000000     0.40959082
System_Quality                  -0.06890087          0.40959082     1.00000000
attr(,"lambda")
[1] 0.02858091
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
 Perceived_Usefulness      Intention_to_Use    Relative_Advantage 
            0.5534264             0.4927317             0.5761245 
Perceived_Ease_of_Use   Information_Quality        System_Quality 
            0.4330652             0.4014395             0.5609267

\begin{tabular}{lllllllll}
\hline
Partial Pearson Correlation Matrix (Shrinkage Method) \tabularnewline
> r1
                      Perceived_Usefulness Intention_to_Use Relative_Advantage
Perceived_Usefulness            1.00000000       0.13607936         0.05435773
Intention_to_Use                0.13607936       1.00000000         0.44187354
Relative_Advantage              0.05435773       0.44187354         1.00000000
Perceived_Ease_of_Use           0.33595821       0.14456588         0.07117365
Information_Quality             0.15421399      -0.01954483         0.08683226
System_Quality                  0.04398048       0.25505523         0.04704206
                      Perceived_Ease_of_Use Information_Quality System_Quality
Perceived_Usefulness             0.33595821          0.15421399     0.04398048
Intention_to_Use                 0.14456588         -0.01954483     0.25505523
Relative_Advantage               0.07117365          0.08683226     0.04704206
Perceived_Ease_of_Use            1.00000000          0.44132394    -0.06890087
Information_Quality              0.44132394          1.00000000     0.40959082
System_Quality                  -0.06890087          0.40959082     1.00000000
attr(,"lambda")
[1] 0.02858091
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
 Perceived_Usefulness      Intention_to_Use    Relative_Advantage 
            0.5534264             0.4927317             0.5761245 
Perceived_Ease_of_Use   Information_Quality        System_Quality 
            0.4330652             0.4014395             0.5609267 
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=308943&T=2

[TABLE]
[ROW][C]Partial Pearson Correlation Matrix (Shrinkage Method)[/C][/ROW]
[ROW][C]> r1
                      Perceived_Usefulness Intention_to_Use Relative_Advantage
Perceived_Usefulness            1.00000000       0.13607936         0.05435773
Intention_to_Use                0.13607936       1.00000000         0.44187354
Relative_Advantage              0.05435773       0.44187354         1.00000000
Perceived_Ease_of_Use           0.33595821       0.14456588         0.07117365
Information_Quality             0.15421399      -0.01954483         0.08683226
System_Quality                  0.04398048       0.25505523         0.04704206
                      Perceived_Ease_of_Use Information_Quality System_Quality
Perceived_Usefulness             0.33595821          0.15421399     0.04398048
Intention_to_Use                 0.14456588         -0.01954483     0.25505523
Relative_Advantage               0.07117365          0.08683226     0.04704206
Perceived_Ease_of_Use            1.00000000          0.44132394    -0.06890087
Information_Quality              0.44132394          1.00000000     0.40959082
System_Quality                  -0.06890087          0.40959082     1.00000000
attr(,"lambda")
[1] 0.02858091
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
 Perceived_Usefulness      Intention_to_Use    Relative_Advantage 
            0.5534264             0.4927317             0.5761245 
Perceived_Ease_of_Use   Information_Quality        System_Quality 
            0.4330652             0.4014395             0.5609267 
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=308943&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308943&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
                      Perceived_Usefulness Intention_to_Use Relative_Advantage
Perceived_Usefulness            1.00000000       0.13607936         0.05435773
Intention_to_Use                0.13607936       1.00000000         0.44187354
Relative_Advantage              0.05435773       0.44187354         1.00000000
Perceived_Ease_of_Use           0.33595821       0.14456588         0.07117365
Information_Quality             0.15421399      -0.01954483         0.08683226
System_Quality                  0.04398048       0.25505523         0.04704206
                      Perceived_Ease_of_Use Information_Quality System_Quality
Perceived_Usefulness             0.33595821          0.15421399     0.04398048
Intention_to_Use                 0.14456588         -0.01954483     0.25505523
Relative_Advantage               0.07117365          0.08683226     0.04704206
Perceived_Ease_of_Use            1.00000000          0.44132394    -0.06890087
Information_Quality              0.44132394          1.00000000     0.40959082
System_Quality                  -0.06890087          0.40959082     1.00000000
attr(,"lambda")
[1] 0.02858091
attr(,"lambda.estimated")
[1] TRUE
attr(,"class")
[1] "shrinkage"
attr(,"spv")
 Perceived_Usefulness      Intention_to_Use    Relative_Advantage 
            0.5534264             0.4927317             0.5761245 
Perceived_Ease_of_Use   Information_Quality        System_Quality 
            0.4330652             0.4014395             0.5609267

Parameters (Session):

par1 = 1 ; par2 = 1 ; par3 = 1 ; par4 = 12 ;

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