library(deSolve)
data(uvbModel)
results <- DEN(odeModel = uvbModel, alphaStep = 500, alpha2 = 0.0001,
epsilon = 0.2, plotEstimates = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.