#' Get the number of states in the ODE from the code
#' code C++ code for model
#' @param code C++ code
#' @export
#' @return Number of states in the ODE model
get_ode_model_size <- function(code) {
m <- gregexpr("\\[([0-9]*)\\]", code)
m1 <- unlist(regmatches(code, m))
tmp <- 0
return(length(unique(m1)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.