if (FALSE) {
read.GB("AY059961")
#Download the sequences making data(anoteropsis) from GenBank
nums <- 59961:59993
seqs <- paste("AY0", nums, sep="")
dat <- read.GB(seqs)
attr(dat, "species")
attr(dat, "gene")
attr(dat, "accession_num")}
Run the code above in your browser using DataLab