context("shortest path tree")
test_that("spt for igraph",{
set.seed(123)
g <- igraph::sample_gnp(100, 3/100)
tr <- spt(g, 6, igraph::V(g))
expect_true(inherits(tr, 'phylo'))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.