Nothing
WNeeds <-
function (x, frvol, R)
{ erb=F
R1 = frvol * R * 10
cat("Maximum water reserve <- ", R1, "\n")
out = MSeason(FIdrico2(x, 12, R, R1), 12)
out = out*10
}
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.