# Toy residuals and data
set.seed(1)
y_train <- rnorm(50)
y_test <- rnorm(10)
fcast <- y_test + rnorm(10, sd = 0.2)
resid <- y_test - fcast
# Basic measures
ME(resid)
MAE(resid)
RMSE(resid)
# Percentage measures require 'actual'
MPE(resid, actual = y_test)
MAPE(resid, actual = y_test)
# Scaled measures require training data (and seasonal period if applicable)
MASE(resid, train = y_train, period = 1)
RMSSE(resid, train = y_train, period = 1)
Run the code above in your browser using DataLab