R/mae.R

In bplloyd/Core:

mae = function(err, lastN=NULL, na.rm=T, trim = 0) {
  if(!is.null(lastN)) {
    if(na.rm) {
      err = na.omit(err)
    }
    err = err[(length(err) - lastN + 1):length(err)]
  }
  return(mean(abs(err), na.rm = T, trim  = trim))
}