library(ahead) library(forecast)
myfitfunc <- function(x, y) ahead::fit_func(x, y, method = "glmnet")
(obj1 <- ahead::dynrmf(USAccDeaths, h=20L, level=99)) (obj2 <- ahead::dynrmf(USAccDeaths, fit_func = myfitfunc, predict_func = ahead::predict_func, h=20L, level=99))
plot(obj1)
plot(obj2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.