knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(rxModels)
Jones2013 %>% solve(et(amt=100,cmt=D,ii=4,until=24) %>% et(seq(0,24,length.out=100))) %>% plot
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.