---
title: "Conformalized Forecasting using Machine Leaning models"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Conformalized Forecasting using Machine Leaning models}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r fig.width=7.5}

# Elastic Net 
(res1 <- ahead::mlf(USAccDeaths, fit_func = glmnet::cv.glmnet, h=25L, lags=15L, 
type_pi="kde", B=250L))


(res2 <- ahead::mlf(AirPassengers, fit_func = glmnet::cv.glmnet, h=25L, lags=15L, 
type_pi="kde", B=250L))

par(mfrow=c(1, 2))
plot(res1)
plot(res2)

# SVM
(res3 <- ahead::mlf(USAccDeaths, fit_func = e1071::svm, h=25L, lags=15L, 
type_pi="kde", B=250L)) 

(res4 <- ahead::mlf(AirPassengers, fit_func = e1071::svm, h=25L, lags=15L, 
type_pi="kde", B=250L)) 

par(mfrow=c(1, 2))
plot(res3)
plot(res4)


```