# NOT RUN {
fasta_file <- system.file("extdata", "example.fasta", package = "alignfigR")
plot_frame <- read_alignment(file = fasta_file)
subset_seq_list <- extract_subalign(plot_frame, tlist = c("Cow", "Human", "Whale"), texcl = TRUE)
subset_seq_list <- extract_subalign(plot_frame, clist = 1:25)
# }
Run the code above in your browser using DataLab