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