# \donttest{
set.seed(123)
sim <- simTVP(theta = c(0.2, 0, 0), beta_mean = c(1.5, -0.3, 0))
data <- sim$data
output <- shrinkTVP(y ~ x1 + x2, data)
plot(output)
# }
## Will produce an error because 'hello' is not a parameter in the model
if (FALSE) {
plot(output, pars = c("beta", "hello"))
}
Run the code above in your browser using DataLab