Nothing
context("phy.build")
test_that("congeneric.merge", {
tree <- read.tree(text="((a_a:1,b_b:1):1, c_c:2):1;")
tree <- congeneric.merge(tree, c("a_nother", "b_sharp"))
expect_that(is.ultrametric(tree), is_true())
expect_that(length(tree$tip.label), equals(5))
tree <- read.tree(text="((a_a:1,b_b:1):1, c_c:2):1;")
tree <- congeneric.merge(tree, c("a_nother", "a_gain", "b_sharp"))
tree <- congeneric.merge(tree, c("a_nother", "b_sharp"))
expect_true(is.ultrametric(tree))
expect_equal(length(tree$tip.label), 6)
})
test_that("congeneric.impute", {
tree <- read.tree(text="((a_a:1,b_b:1):1, c_c:2):1;")
tree <- congeneric.impute(tree, c("a_nother", "b_sharp"))
expect_that(is.ultrametric(tree), is_true())
expect_that(length(tree$tip.label), equals(5))
tree <- read.tree(text="((a_a:1,b_b:1):1, c_c:2):1;")
tree <- congeneric.impute(tree, c("a_nother", "a_gain", "b_sharp"))
tree <- congeneric.impute(tree, c("a_nother", "b_sharp"))
expect_true(is.ultrametric(tree))
expect_equal(length(tree$tip.label), 6)
})
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.