# Load example data
data("e1")
y <- log(t(e1))
k <- nrow(y)
y <- matrix(y)
# Generate artificial draws of other matrices
u_omega_i <- Matrix(diag(1, k))
prior_mean <- matrix(0, 3)
prior_covariance_i <- Matrix(diag(0, 3))
# Obtain posterior draw
post_normal_covar_const(y, u_omega_i, k, prior_mean, prior_covariance_i)
Run the code above in your browser using DataLab