Nothing
ann.cv <- function(flow.ts) {
flow.ts$year <- strftime(flow.ts$Date, format = "%Y")
ann.stats <- aggregate(flow.ts["Q"], flow.ts["year"], mean, na.rm = T)
out <- sd(ann.stats$Q, na.rm = T)/mean(ann.stats$Q, na.rm = T) * 100
return(data.frame(ann.cv = out))
}
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.