load packages

require(drwateR)
require(tidyverse)
require(growthcurver)

Generate culture data

k_in <- 1e9
n0_in <- 1e6
r_in <- 0.28 # the initial growth rate
gdf <- tibble(julian = 1:60) |> dplyr::mutate(cellden = growthcurver::NAtT(k = k_in, n0 = n0_in, r = r_in, t = julian))

How to use

gcm <- dwfun::gcm(gdf, Nval = "cellden", tval = "julian")


生长速率

r <- …