# NOT RUN {
library(metan)
lower_tri <- make_lower_tri(matrix(20, 4, 4))
lower_tri
make_sym(lower_tri)
upper_tri <- make_upper_tri(matrix(20, 4, 4))
upper_tri
make_sym(upper_tri, make = "lower", diag = 1)
# }
Run the code above in your browser using DataCamp Workspace