R/logi_fun.R

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

Defines functions logi_fun

Documented in logi_fun

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