Nothing
#' @describeIn rqcCycleAverageQualityPlot calculates necessary statistics
#' @export
rqcCycleAverageQualityCalc <- function(rqcResultSet)
{
f <- function(x) {
quality <- mean(Rle(x$score, x$count))
data.frame(quality)
}
df <- perCycleQuality(rqcResultSet)
ddply(df, c("group", "filename", "cycle"), f)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.