library(Mcomp)
library(Tcomp)
library(forecast)
library(smooth)
# I work on Linux and use doMC. Substitute this with doParallel if you use Windows
library(doMC)
registerDoMC(detectCores())
# Create a small but neat function that will return a vector of error measures
errorMeasuresFunction <- function(object, holdout, insample){
holdout <- as.vector(holdout);
insample <- as.vector(insample);
return(c(measures(holdout, object$mean,...
