require(ggplot2)
require(ggpubr)
### run function
bf <- msc.length(file = system.file("extdata", "all.minicircles.fasta", package="rKOMICS"),
samples = exData$samples, groups = exData$subspecies)
af <- msc.length(file = system.file("extdata", "all.minicircles.circ.fasta", package="rKOMICS"),
samples = exData$samples, groups = exData$subspecies)
length(which(bf$length<800))
length(which(bf$length>1400))
### visualize results
hist(af$length, breaks=50)
### alter plot
ggarrange(bf$plot + labs(caption = "Before filtering"),
af$plot + labs(caption = "After filtering"), nrow=2)
Run the code above in your browser using DataLab