R/fW.Skopp.R

In SoilR: Models of Soil Organic Matter Decomposition

#' Effects of moisture on decomposition rates according to the function
#' proposed by Skopp et al. 1990
#' 
#' Calculates the effects of relative soil water content on decomposition
#' rates.
#' 
#' 
#' @param rwc relative water content
#' @param alpha Empirical parameter
#' @param beta Empirical parameter
#' @param f Empirical parameter
#' @param g Empirical parameter
#' @references J. Skopp, M. D. Jawson, and J. W. Doran. 1990. Steady-state
#' aerobic microbial activity as a function of soil water content. Soil Sci.
#' Soc. Am. J., 54(6):1619-1625
fW.Skopp<- structure(
  function 
(  rwc, 
   alpha=2, 
   beta=2, 
   f=1.3, 
   g=0.8 
)
  {
  p=pmin(alpha*rwc^f, beta*(1-rwc)^g)
  return(p)
}
,
ex=function(){
  th=seq(0,1,0.01)
  xi=fW.Skopp(rwc=th)
  plot(th,xi,type="l",main="Effects of soil water content on decomposition rates",
       xlab="Relative water content",ylab=expression(xi))
}
)