Convert Correlation Matrix into Logical Matrix in R

To convert a correlation matrix into a logical matrix based on correlation coefficient in R, we can follow the below steps −

• First of all, create a matrix.

• Then, find the correlation matrix.

• After that, convert the correlation matrix into logical matrix based on coefficient value using greater than or less than sign.

Example 1

Let’s create a matrix as shown below −

 Live Demo

M1<-matrix(sample(1:100,100),ncol=4)
M1

On executing, the above script generates the below output(this output will vary on your system due to randomization) −

Output

   [,1] [,2] [,3] [,4]
[1,] 91 22 61 37
[2,] 33 89 49 9
[3,] 71 6 36 13
[4,] 51 18 57 90
[5,] 41 23 4 54
[6,] 30 64 77 43
[7,] 67 12 65 7
[8,] 80 47 97 2
[9,] 34 32 21 79
[10,] 24 73 17 25
[11,] 66 38 45 58
[12,] 52 53 92 63
[13,] 31 74 76 100
[14,] 95 69 82 35
[15,] 27 60 98 59
[16,] 50 44 55 16
[17,] 29 88 11 81
[18,] 28 14 99 72
[19,] 1 68 15 78
[20,] 5 46 86 84
[21,] 70 10 19 93
[22,] 3 94 87 20
[23,] 56 39 75 62
[24,] 26 40 8 42
[25,] 85 83 96 48

Find the correlation matrix

Using cor function to find the correlation matrix −

 Live Demo

M1<-matrix(sample(1:100,100),ncol=4)
Cor_M1<-cor(M1)
Cor_M1

Output

        [,1]       [,2]       [,3]       [,4]
[1,] 1.0000000 -0.35856139 0.1834276 -0.29261479
[2,] -0.3585614 1.00000000 0.1613665 -0.08473756
[3,] 0.1834276 0.16136649 1.0000000 -0.12695909
[4,] -0.2926148 -0.08473756 -0.1269591 1.00000000

Convert the correlation matrix into logical matrix based on correlation coefficient

Using correlation coefficient value 0.15 to convert Cor_M1 into logical matrix with TRUE where correlation coefficient is greater than 0.15 −

 Live Demo

M1<-matrix(sample(1:100,100),ncol=4)
Cor_M1<-cor(M1)
Cor_M1_Above_0.15 <- Cor_M1>0.15
Cor_M1_Above_0.15

Output

    [,1]  [,2] [,3] [,4]
[1,] TRUE FALSE TRUE FALSE
[2,] FALSE TRUE TRUE FALSE
[3,] TRUE TRUE TRUE FALSE
[4,] FALSE FALSE FALSE TRUE

Example2

Let’s create a matrix as shown below −

 Live Demo

M2<-matrix(round(rnorm(100),1),ncol=4)
M2

On executing, the above script generates the below output(this output will vary on your system due to randomization) −

Output

       [,1] [,2] [,3] [,4]
[1,]   0.4 -0.6 -1.0 -0.6
[2,]   1.2 -0.4  0.4 1.2
[3,]   -0.2 1.0 -0.5 0.9
[4,]   0.0 -1.7 -1.6 -2.1
[5,]  -0.4 -1.6  0.3 0.7
[6,]  -0.4 -1.4  1.7 0.0
[7,]   1.1 -0.3  0.3 0.6
[8,]   0.2 -0.2 -0.4 -0.3
[9,]   0.2  0.9 -0.7 0.2
[10,]  0.6 -0.7  0.1 -0.1
[11,] -1.8 -0.7  0.3 0.3
[12,]  0.4 -0.6 -1.5 0.8
[13,] -0.1  0.7  0.4 0.1
[14,]  0.6 -0.5 -0.2 -1.2
[15,] -0.2  0.1 -0.6 0.1
[16,]  0.6 -0.3  0.8 -1.5
[17,] -0.4  0.6 -0.8 -0.3
[18,] -0.5 -2.1 -2.5 -1.2
[19,] -0.8  0.5  1.6 0.1
[20,]  0.2 -2.3  1.2 1.1
[21,] -0.2  0.4 -0.2 -1.5
[22,]  0.3 -1.2 -0.2 -2.1
[23,]  0.5 -0.6  1.1 -0.2
[24,] -0.4  0.9  0.7 -0.8
[25,] -0.1  0.6  0.2 -0.2

Find the correlation matrix

Using cor function to find the correlation matrix −

 Live Demo

M2<-matrix(round(rnorm(100),1),ncol=4)
Cor_M2<-cor(M2)
Cor_M2

Output

         [,1]       [,2]       [,3]       [,4]
[1,] 1.00000000 -0.0548232 -0.02367749 0.02923548
[2,] -0.05482320 1.0000000 0.10940827 0.11996196
[3,] -0.02367749 0.1094083 1.00000000 0.29432660
[4,] 0.02923548 0.1199620 0.29432660 1.00000000

Convert the correlation matrix into logical matrix based on correlation coefficient

Using correlation coefficient value 0.25 to convert Cor_M2 into logical matrix with TRUE where correlation coefficient is greater than 0.25 −

 Live Demo

M2<-matrix(round(rnorm(100),1),ncol=4)
Cor_M2<-cor(M2)
Cor_M2_Above_0.25 <- Cor_M2>0.25
Cor_M2_Above_0.25

Output

     [,1] [,2]  [,3]  [,4]
[1,] TRUE FALSE FALSE FALSE
[2,] FALSE TRUE FALSE FALSE
[3,] FALSE FALSE TRUE TRUE
[4,] FALSE FALSE TRUE TRUE