checkpoint("Rqc", path=system.file(package="Rqc", "extdata"), {
folder <- system.file(package="ShortRead", "extdata/E-MTAB-1147")
files <- list.files(full.names=TRUE, path=folder)
rqcResultSet <- rqcQA(files, pair=c(1,1), workers=1)
}, keep="rqcResultSet")
rqcReadFrequencyPlot(rqcResultSet)
Run the code above in your browser using DataLab