R/rqcReadQualityCalc.R

Defines functions rqcReadQualityCalc

Documented in rqcReadQualityCalc

#' @describeIn rqcReadQualityPlot calculates necessary statistics
#' @export
rqcReadQualityCalc <- function(rqcResultSet)
{
    f <- function(x) {
        quantile <- 100 - seq(0, 100, 1)
        value <- quantile(Rle(x$average, x$count), seq(0, 1, 0.01), names=FALSE)
        data.frame(quantile, value)
    }

    df <- perReadQuality(rqcResultSet)
    ddply(df, "filename", f)
}
labbcb/Rqc documentation built on Aug. 2, 2021, 8:43 a.m.