#' Returns MAE
#'
#' @param obs A vector containing observed values
#' @param pred A vector containing simulated values
#' @export
#'
mae_function <- function(obs, pred){
mean(abs(obs-pred),na.rm=T)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.