context("complex rearrangement")
## test_that("complex", {
## extdata <- system.file("extdata", package="svbams")
## r <- readRDS(file.path(extdata, "cgov1t_complex_rearrangement.rds"))
## ##s <- type(r)
## ##expect_identical(s, "++,--")
## ##expect_true(isComplex(r))
## })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.