library(ggplot2)
library(ggtree)
library(phangorn)
library(Biostrings)
test_that("Test generate_tree_vis(data_frame, alignment, tree, pscore, lscore)", {
data(bears)
aln_path = "testdata/bears_fasta.fa"
sample_df = generate_sliding(bears, 1, 5, 1)
vec <- generate_tree_vis(sample_df = sample_df, alignment = aln_path,
tree = tree, phy_mat = bears)
testthat::expect_equal(length(vec), 5)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.