## Importing log-mortality data from Portugal:
data(PT)
Y <- PT
## Fitting the model
fit = blc(Y = Y, M = 100, bn = 20)
#' ## Prediction for 10 years ahead
pred = predict(fit, h = 3)
## Plotting
plot(pred, h = 1)
plot(pred, h = 3, prob = 0.9)
Run the code above in your browser using DataLab