Nothing
test_that("The plot functions work", {
data(zikv_align)
data(zikv_tree)
tr <- addMSA(zikv_tree,
alignment = zikv_align)
p <- lineagePath(tr)
expect_error(plot(p), NA)
fixedSites <- fixationSites(p)
expect_error(plot(fixedSites), NA)
# Test the constrain for 'sitePath'
sp <- extractSite(fixedSites, 139)
nSP <- length(sp)
expect_error(plot(sp, select = nSP + 1))
fp <- fixationPath(fixedSites)
expect_error(plot(fp), NA)
})
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.