R/k_theta.R

Defines functions k_theta

k_theta <- function(theta,k_sat,theta_sat,b,l = 1){
  return(k_sat*(10**(-7*(1-l)))*(theta/theta_sat)**(2*b+3))
}
femeunier/SoilSensitivity documentation built on March 30, 2022, 10:23 a.m.