k <- 10 # Number of endogenous variables
tt <- 1000 # Number of observations
set.seed(1234) # Set RNG seed
# Generate artificial error series with N(0, 1)
u <- matrix(rnorm(k * tt))
# Define priors
shape_prior <- matrix(1, k)
rate_prior <- matrix(.0001, k)
# Obtain posterior draw
post_gamma_measurement_variance(u, shape_prior, rate_prior, inverse = FALSE)
Run the code above in your browser using DataLab