# \donttest{
# Generate synthetic data
sim <- simTVP(N = 300)
# Estimate a model
res <- shrinkTVP(y ~ x1 + x2, sim$data)
# Calculate predicted values
pred <- predict(res)
# Visualize
plot(pred)
lines(sim$data$y, col = "forestgreen")
# }
Run the code above in your browser using DataLab