# 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)
Phytree_Anth$edge.length <- Phytree_Anth$edge.length + (mean(Phytree_Anth$edge.length) * 0.1)
plot(Phytree_Anth)
Run the code above in your browser using DataLab