R/foremeas1.R

In disagg2: Support Functions for Time Series Analysis Book

foremeas1 <- function(actx,forex) {
#actx is the actual, while forex is the forecast
#we will return MSE and MAE
if(length(actx)!=length(forex))stop("inputs have different lengths")
mse1 <- mean((forex-actx)^2)
mae1 <- mean(abs(forex-actx))
fore1 <- list(MSE=mse1,MAE=mae1)
return(fore1)
}