MRAE: MRAE - Mean Relative Absolute Error
In jdestefani/UEMTS: Univariate Error Measures for Time Series forecasting

Description Usage Arguments Value Examples

MRAE = $1/n ∑_{t=0}^n r_t

1	MRAE(y, y_hat, y_hat_bench, result_type = c("measure", "raw"))

`y`	True values of the time series
`y_hat`	Forecasted values of the time series
`y_hat_bench`	Forecasted values of the time series using the benchmark model
`result_type`	String indicating whether the function should return the raw values ("raw"), or the computed measure ("measure")

According to the value of result_type:

measure -> MRAE computed according to the formula
raw -> Vector containing one MRAE for each time step

y <- AirPassengers
splitting_point <- round(2*length(y)/3)
y_train <- y[1:splitting_point]
h <- 5

y_test <- y[(splitting_point+1):(splitting_point+h)]
y_hat_naive <- rep(tail(y_train,1),h)
y_hat_average <-  rep(mean(y_train),h)
results <- MRAE(y_test,y_hat_average,y_hat_naive)