This function help users to easily make a symmetric matrix using a lower or an upper triangular matrix.

make_sym(.matrix, make = "upper", diag = NA)

Arguments

.matrix

The upper or lower triangular matrix.

make

The triangular to built. Default is "upper". In this case, a symmetric matrix will be built based on the values of a lower triangular matrix.

diag

What show in the diagonal of the matrix. Default to NA.

Value

A symmetric matrix.

Examples

# \donttest{ library(metan) lower_tri <- make_lower_tri(matrix(20, 4, 4)) lower_tri
#> [,1] [,2] [,3] [,4] #> [1,] NA NA NA NA #> [2,] 20 NA NA NA #> [3,] 20 20 NA NA #> [4,] 20 20 20 NA
make_sym(lower_tri)
#> [,1] [,2] [,3] [,4] #> [1,] NA 20 20 20 #> [2,] 20 NA 20 20 #> [3,] 20 20 NA 20 #> [4,] 20 20 20 NA
upper_tri <- make_upper_tri(matrix(20, 4, 4)) upper_tri
#> [,1] [,2] [,3] [,4] #> [1,] NA 20 20 20 #> [2,] NA NA 20 20 #> [3,] NA NA NA 20 #> [4,] NA NA NA NA
make_sym(upper_tri, make = "lower", diag = 1)
#> [,1] [,2] [,3] [,4] #> [1,] 1 20 20 20 #> [2,] 20 1 20 20 #> [3,] 20 20 1 20 #> [4,] 20 20 20 1
# }