#' Checks whether the solution generated by the ODE solver contains negative values
#'
#' @param soln Matrix from ode solver out$solution
#' @param tol tolerance
#' @export
checkSolution = function(soln, tol = -0.1) {
stateVarNames=colnames(soln)
for (v in 2:length(stateVarNames)) {
var = stateVarNames[v]
if (any(soln[, var] < tol)) {
warning(paste("MICROPOP WARNING: There are negative values for", var))
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.