# NOT RUN {
forecast_mean <- function(...){
do.call(forecast::forecast,c(list(...)))$mean
}
l <- linear(train_func = forecast::auto.arima, pred_func = forecast_mean,
method="ARIMA model", subclass="ARIMA")
summary(l)
m <- MLM(train_func = nnet::nnet, train_par=list(size=5),
pred_func = predict, sw=SW(window_len = 6), proc=list(MM=MinMax()),
method="Artificial Neural Network model", subclass="NNET")
summary(m)
# }
Run the code above in your browser using DataLab