# Simulate a random diagonal matrix with 10 columns and rows, and negatively skewed variances
# scaled to a mean of 0.1.
diag_mat <- skew_diag_mat(
n = 10,
shape = 1.5,
scale = 1,
mean.var = 0.1
)
Run the code above in your browser using DataLab