tests/testthat/test_plot.ODEsobol.R

context("Test of plot.ODEsobol()")

test_that("Errors are thrown", {
  # An arbitrary Morris-result:
  arbit_res_morris <- diag(7)
  class(arbit_res_morris) <- "ODEmorris"
  
  expect_error(plot.sobolRes(1:3))
  expect_error(plot.sobolRes("No character!"))
  expect_error(plot.sobolRes(diag(7)))
  expect_error(plot.sobolRes(arbit_res_morris))
})

Try the ODEsensitivity package in your browser

Any scripts or data that you put into this service are public.

ODEsensitivity documentation built on May 1, 2019, 6:32 p.m.