Nothing
soilwater2 <-
function (x, x0 = 6.653, k0, k1, n)
k1 * ( exp(-k0 / x0^n) - exp(-k0 / x^n) )
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.