Nothing
#' @describeIn rqcCycleQualityPlot calculates necessary statistics
#' @export
rqcCycleQualityCalc <- function(rqcResultSet)
{
f <- function(x) {
percentiles <- 1:100
value <- quantile(Rle(x$score, x$count), seq(0.01, 1, 0.01), names=FALSE)
data.frame(percentiles, value)
}
df <- perCycleQuality(rqcResultSet)
ddply(df, c("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.