Nothing
context("Test of plot.ODEmorris()")
test_that("Errors are thrown", {
# An arbitrary Sobol'-result:
arbit_res_sobol <- diag(7)
class(arbit_res_sobol) <- "ODEsobol"
expect_error(plot.morrisRes(1:3))
expect_error(plot.morrisRes("No character!"))
expect_error(plot.morrisRes(diag(7)))
expect_error(plot.morrisRes(arbit_res_sobol))
})
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.