R/interception_probability.R

In IhsanKhaliq/ascotraceR: Simulate the Spread of Ascochyta Blight in Chickpea

#' Probability of Interception of Conidia

#' 'interception_probability()' estimates the probability of conidia not landing
#' on susceptible growing points
#'
#' @param target_density is the density of susceptible growing points
#' @param k is a dimensionless parameter
#' @example
#' interception_probability(3000,5)
#'
#' @keywords internal
#' @noRd



interception_probability <- function(target_density, k) {
  1 - exp(-k * target_density)
}