# NOT RUN {
# This example requires the external barrnap software
# Using a genome file in this package.
xpth <- file.path(path.package("micropan"),"extdata")
genome.file <- file.path(xpth,"Example_genome.fasta.xz")
# We need to uncompress it first...
tf <- tempfile(fileext=".xz")
s <- file.copy(genome.file,tf)
tf <- xzuncompress(tf)
# Searching for rRNA sequences, and inspecting
gff.table <- barrnap(tf)
print(gff.table)
# Retrieving the sequences
genome <- readFasta(tf)
rRNA.fasta <- gff2fasta(gff.table,genome)
# ...and cleaning...
file.remove(tf)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab