# NOT RUN {
library(forecast)
test3 <- function(data, nval){return(as.numeric(forecast(ets(data), h = nval)$mean))}
a <- prediction_errors(data = nottem,
Method = c("test3(data, nval)"),
MethodName = c("ETS"), append_ = 1)
monte_carlo(object = a1, size = 144, iteration = 10)
# }
Run the code above in your browser using DataLab