filename <- system.file("exampleData", "sample.fasta",
package="altcdfenvs")
con <- file(filename, open="r")
fasta.seq <- grep.FASTA.entry("NM_001544\\.2", con)
close(con)
print(fasta.seq)
Run the code above in your browser using DataLab