Nothing
#'@rdname internal
baseflow.index <- function(x, na.rm = F){
num <- min(runmean(x, k = 7, alg = 'fast', endrule = 'NA'), na.rm = na.rm)
denom <- mean(x, na.rm = na.rm)
num / denom
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.