library(ahead)
## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo
y <- USAccDeaths

(obj1 <- ahead::glmthetaf(y, h=15L, fit_func=gam::gam, attention=TRUE))
##          Point Forecast    Lo 95     Hi 95
## Jan 1979       8260.367 7748.676  8772.059
## Feb 1979       7494.866 6910.467  8079.266
## Mar 1979       8301.031 7652.019  8950.044
## Apr 1979       8526.809 7819.058  9234.559
## May 1979       9413.663 8651.689 10175.638
## Jun 1979       9826.386 9013.798 10638.974
## Jul 1979      10766.547 9906.319 11626.776
## Aug 1979      10033.052 9127.686 10938.418
## Sep 1979       8886.476 7938.119  9834.833
## Oct 1979       9262.744 8273.261 10252.227
## Nov 1979       8710.567 7681.602  9739.533
## Dec 1979       8914.926 7847.937  9981.915
## Jan 1980       8132.398 7028.696  9236.100
## Feb 1980       7378.491 6239.257  8517.724
## Mar 1980       8172.170 6998.481  9345.860
(obj6 <- ahead::glmthetaf(y, h=15L, fit_func=glm, attention=FALSE))
##          Point Forecast    Lo 95     Hi 95
## Jan 1979       8270.694 7759.002  8782.385
## Feb 1979       7508.924 6924.525  8093.323
## Mar 1979       8322.125 7673.113  8971.137
## Apr 1979       8554.144 7846.393  9261.894
## May 1979       9450.093 8688.118 10212.067
## Jun 1979       9870.934 9058.346 10683.522
## Jul 1979      10822.498 9962.269 11682.726
## Aug 1979      10091.841 9186.475 10997.207
## Sep 1979       8944.434 7996.076  9892.791
## Oct 1979       9329.290 8339.807 10318.772
## Nov 1979       8778.913 7749.947  9807.878
## Dec 1979       8990.776 7923.787 10057.764
## Jan 1980       8206.972 7103.270  9310.674
## Feb 1980       7451.034 6311.800  8590.267
## Mar 1980       8257.924 7084.235  9431.614
plot(obj1)

plot(obj6)