tests/testthat/test-plotTrajectory.R

x0 <- Repressilator[1, 2:7]
ugene <- inferNetwork(Repressilator)
trajectory <- simulateUGENE(ugene, x0)

test_that("input correctness", {
  expect_error(plotTrajectory(trajectory, c("I don't exist", "me neither")))
  expect_error(plotTrajectory(trajectory, c("m1","m1","m1","m1","m1","m1","m1")))
  expect_error(plotTrajectory(trajectory, c("t")))
})

# [END]
tianyu-lu/dynUGENE documentation built on Jan. 7, 2021, 6:27 p.m.