# create and plot a phylo tree
specdf_Anth <- querySpecData("Antheraea polyphemus")[1:10,]
DNABin_Anth <- genDNABin(specdf_Anth)
DNAStringset_Anth <- genDNAStringSet(DNABin_Anth)
DNAStringSet_Anth_manipulated <- ManipStringSet(DNAStringset_Anth)
Phytree_Anth <- genPhytree(DNAStringSet_Anth_manipulated)
savePhytree(
phyloTree = Phytree_Anth,
specimen_dataframe = specdf_Anth,
tree_file_name = "Anth_phylo_tree.pdf",
openPDF = FALSE,
savePDF = FALSE
)
Run the code above in your browser using DataLab