Nothing
hydraulicCutOff <-
function(theta_R, k0, k1, n, x0 = 6.653)
{
exp((1/n) * log(-k0 / (log(exp(-k0/x0^n) - theta_R/k1))))
}
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.