R/ccl4model.R

Defines functions ccl4model

Documented in ccl4model

ccl4model <- function(times, y, parms, ...) {

  if (length(y) != 7)
    stop ("length of state variable vector should be 7")
  if (length(parms) != 21)
    stop ("length of parameter vector should be 21")

  names(y) <- c("AI","AAM","AT","AF","AL","CLT","AM")

  ode(y=y,dllname="deSolve",func="derivsccl4",
        initfunc = "initccl4",parms=parms,
        times=times,nout=3,outnames=c("DOSE","MASS","CP"),...)
}

Try the deSolve package in your browser

Any scripts or data that you put into this service are public.

deSolve documentation built on Nov. 28, 2023, 1:11 a.m.