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]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.