Nothing
monthly.cv <- function(flow.ts) {
month.means <- aggregate(flow.ts[, "Q"], by = list(month = strftime(flow.ts[["Date"]], format = "%m")), mean, na.rm = T)
month.sd <- sd(month.means[, "x"], na.rm = T)
monthly.cv <- (month.sd/mean(month.means[, "x"])) * 100
return(data.frame(monthly.cv = monthly.cv))
}
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.