# Check to make sure that the various model configurations that are included by default
# are valid MEMC objects in other words we are able to solve them using the solve_model
# function.
t <- 1:10
test_that("model configurations solve", {
mend_out <- solve_model(MEND_model, time = t)
expect_true(is.data.frame(mend_out))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.