Nothing
beforeAfterMax <- function(eventCount, event_steps_till_max, event_length){
res<-.Call("bamaximum",invector=eventCount,eventmax= event_steps_till_max,inevents=event_length,PACKAGE="hydroEFS")
return(res)
}
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.