# \donttest{
set.seed(123)
sim <- simTVP()
train <- sim$data[1:190, ]
test <- sim$data[191:200, ]
res <- shrinkTVP(y ~ x1 + x2, train)
forecast <- forecast_shrinkTVP(res, test)
plot(forecast)
lines(sim$data$y, col = "forestgreen")
# }
Run the code above in your browser using DataLab