# 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_protein.fsa"
pth <- lapply( file.path( extdata.path, paste( filenames, ".xz", sep="" ) ), xzuncompress )
# ...then we prep it, using the GID.tag "GID123"
panPrep(file.path(extdata.path,filenames),GID.tag="GID123","Mpneumoniae_309.fsa")
# ...should produce a FASTA file named Mpneumoniae_309_GID123.fsa
# ...and compress the input file again...
pth <- lapply( file.path( extdata.path, filenames ), xzcompress )
Run the code above in your browser using DataLab