Se <- function(theta,theta_s,theta_r){ Se <- (theta - theta_r)/(theta_s - theta_r) return(Se) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.