library(ICI3D) hivdat <- system.file("hiv", "HIVtutorial.Rdata", package="ICI3D") attach(hivdat) require(deSolve) startYear <- 1975 endYear <- 2025 setB <- 0.029 setMu <- 0.018 setDelta <- 0.1 setBoxes <- 4 model_display <- function(fun) { cat("```r\n") cat(substitute(fun), "<- ") cat(deparse(fun, control = "all"), sep="\n") cat("```\n") }
detach()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.