data(exData)
### select a subset of MSC
Lpe <- which(exData$species == "L. peruviana")
specific <- msc.subset(matrices[[7]], subset = Lpe)
### run function
seq <- msc.seqs(fastafile = system.file("extdata", "all.minicircles.circ.fasta", package="rKOMICS"),
ucfile = system.file("extdata", exData$ucs, package="rKOMICS")[7],
clustnumbers = specific$clustnumbers, writeDNA = FALSE)
Run the code above in your browser using DataLab