# NOT RUN {
surgeon_dna <- fishtree_alignment(rank = "Acanthuridae", split = TRUE)
surgeon_dna[[1]]
par(mfrow = c(9, 3), mar = c(0.5, 0.5, 1, 0.5), xaxt = "n", yaxt = "n")
for (gene in names(surgeon_dna)) {
image(surgeon_dna[[gene]], legend = FALSE, show.labels = FALSE)
title(gene)
}
# }
Run the code above in your browser using DataLab