# \donttest{
# Generate sample data
set.seed(2021)
dt <- rgamma(1000, shape = 2, rate = 1)
dt <- as.matrix(dt, ncol=1)
result <- asgn_func(dt, return_mcmc = TRUE, return_summary = TRUE)
print(result$summary)
# }
Run the code above in your browser using DataLab