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