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