### Get the 8 sequences of tanagers (Ramphocelus)
### as used in Paradis (1997)
ref <- c("U15717", "U15718", "U15719", "U15720",
"U15721", "U15722", "U15723", "U15724")
Rampho <- read.GenBank(ref)
### print the first sequence
### (can be done with `Rampho$U15717' as well)
Rampho[[1]]
### print the first sequence in a "cleaner" way
cat(Rampho[[1]], "", sep = "")
Run the code above in your browser using DataLab