# NOT RUN {
e <- error(eval_func=TSPred::NMSE, eval_par=list(train.actual=NULL),
method="Normalised Mean Squared Error", subclass="NMSE")
summary(e)
f <- fitness(eval_func=stats::AIC, method="Akaike's Information Criterion", subclass="AIC")
summary(f)
# }
Run the code above in your browser using DataLab