location <- tempdir()
unzip(system.file('extdata', 'Mycoplasma.zip', package='FindMyFriends'),
exdir=location)
genomeFiles <- list.files(location, full.names=TRUE, pattern='*.fasta')
# Create pgFull
pangenome(genomeFiles, TRUE)
# Create pgFullLoc
pangenome(genomeFiles, TRUE, geneLocation='prodigal')
# Create pgLM
pangenome(genomeFiles, TRUE, lowMem=TRUE)
# Create pgLMLoc
pangenome(genomeFiles, TRUE, geneLocation='prodigal', lowMem=TRUE)
Run the code above in your browser using DataLab