R/gompi_fun.R

In AlvesKS/epifitter: Analysis and Simulation of Plant Disease Progress Curves

Defines functions gompi_fun

Documented in gompi_fun

gompi_fun <- function(t, y, par) {
  y <- y[1]
  r <- par$r
  K <- par$K
  dy <- y * r * (log(K) - log(y))
  return(list(c(dy)))
}