powered by
Copy the upper triangular of a matrix into the lower triangular portion of the matrix.
Symmetric Matrix
symm_mat(x)
A matrix of dimensions p by p.
A matrix
# NOT RUN { adj <- matrix(sample(0:1, size = 25, replace = TRUE), 5, 5) symm_mat(adj) # }
Run the code above in your browser using DataLab