# NOT RUN {
# Using two files in this package
xpth <- file.path(path.package("microseq"),"extdata")
gff.file <- file.path(xpth,"small.gff")
genome.file <- file.path(xpth,"small_genome.fasta")
# Reading
gff.table <- readGFF(gff.file)
genome <- readFasta(genome.file)
# Retrieving sequences
fasta.obj <- gff2fasta(gff.table,genome)
summary(fasta.obj)
plot(fasta.obj)
# }
Run the code above in your browser using DataLab