Nothing
test_that("basic functionality", {
# GUTS-RED-IT
sim <- minnow_it %>% simulate()
expect_warning(surv <- minnow_it %>% survival())
expect_equal(surv$survival, sim$S)
# GUTS-RED-SD
sim <- minnow_sd %>% simulate()
expect_warning(surv <- minnow_sd %>% survival())
expect_equal(surv$survival, sim$S)
})
test_that("unsupported model", {
expect_error(expect_warning(survival(metsulfuron)))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.