#' IAM #' @export iam <- Vectorize( function(ppt, etp) { if (ppt < etp) { (ppt / etp) - 1 } else { 1 - (etp / ppt) } }, vectorize.args = c("ppt", "etp") )
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.