test_that("dr.db_model() works", {
dr.db <- dr.db_download()
dr.db_model(dr.db)
dr.db$`Best fit model*` <- rep("beta-Poisson", nrow(dr.db))
dr.db_model(dr.db)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.