if (FALSE) {
# Simple model
mod <- createModel("path/to/model")
# Load/compile the model
mod$loadModel()
# Update parameters (P1 and P2)
mod$updateParms(c(P1 = 3, P2 = 1))
# Define times for ODE simulation
times <- seq(from = 0, to = 24, by = 0.1)
# Run the simulation
out <- mod$runModel(times)
}
Run the code above in your browser using DataLab