#' nse
#' this function calculates nse
#' @param obs
#' @param sim
#' @export
nse <- function(obs = obs, sim = sim) {
1 - sum((obs - sim) ^ 2) / sum((obs - mean(obs)) ^ 2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.