## Not run:
# # Using a FASTA file in the micropan package
# # We need to uncompress it first...
# extdata.path <- file.path(path.package("micropan"),"extdata")
# filenames <- "Mpneumoniae_309_GID2.fsa"
# pth <- lapply( file.path( extdata.path, paste( filenames, ".xz", sep="" ) ), xzuncompress )
#
# # Using a miniature pHMM database in the micropan package
# # We need to uncompress its datafiles first...
# db <- "microfam0.hmm"
# pth <- lapply( file.path( extdata.path,
# paste( db, c(".h3f.xz",".h3i.xz",".h3m.xz",".h3p.xz"), sep="" ) ), xzuncompress )
#
# # ...and scanning the FASTA-file against microfam0...
# hmmerScan(in.files=file.path(extdata.path,filenames),
# db=file.path(extdata.path,db),out.folder=".")
#
# # ...and compressing all files again...
# pth <- lapply( file.path( extdata.path, filenames ), xzcompress )
# pth <- lapply( file.path( extdata.path,
# paste( db, c(".h3f",".h3i",".h3m",".h3p"), sep="" ) ), xzcompress )
# ## End(Not run)
Run the code above in your browser using DataLab