R/qualityprofile.R

In marcgarel/fabarg: fabarg Package

#' qualityprofile
#'Une fonction pour retourne un fichier pdf avec tous profil qualité
#' @param fileFw a list
#' @param fileRev a list
#' @param outfile a character
#'
#' @return
#' @export
#'
#' @examples
qualityprofile <- function(fileFw,fileRev,outfile)
{
  pdf(outfile, onefile = TRUE)
  for (i in 1:length(fileFw))
  {
    f<-dada2::plotQualityProfile(fileFw[[i]])
    r<-dada2::plotQualityProfile(fileRev[[i]])
    print(f)
    print(r)
  }
  dev.off()
}