soilwater2 <- function (x, x0 = 6.653, k0, k1, n) k1 * ( exp(-k0 / x0^n) - exp(-k0 / x^n) )
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.