https://github.com/cran/simecol
Tip revision: 27972f79606ed158414d982ce17b7f8dbe5bb6e9 authored by Thomas Petzoldt on 07 October 2021, 05:40:02 UTC
version 0.8-14
version 0.8-14
Tip revision: 27972f7
sim.R
setGeneric("sim", function(obj, initialize = TRUE, ...) standardGeneric("sim"))
setMethod("sim", "simObj",
function(obj, initialize = TRUE, ...) {
if (initialize & !is.null(obj@initfunc)) obj <- initialize(obj)
out <- do.call(obj@solver, list(obj, ...))
obj@out <- out
invisible(obj)
}
)
setMethod("sim", "odeModel",
function(obj, initialize = TRUE, ...) {
if (initialize & !is.null(obj@initfunc)) obj <- initialize(obj)
times <- fromtoby(obj@times)
func <- obj@main
inputs <- obj@inputs
equations <- obj@equations
environment(func) <- environment()
equations <- addtoenv(equations)
if (is.null(inputs)) {
out <- do.call(obj@solver, list(obj@init, times, func, obj@parms, ...))
} else {
out <- do.call(obj@solver, list(obj@init, times, func, obj@parms, inputs=obj@inputs, ...))
}
obj@out <- out
invisible(obj)
}
)
setMethod("sim", "gridModel",
function(obj, initialize = TRUE, ...) {
if (initialize & !is.null(obj@initfunc)) obj <- initialize(obj)
times <- fromtoby(obj@times)
out <- do.call(obj@solver, list(obj, ...))
obj@out <- out
invisible(obj)
}
)