Nothing
#' @describeIn rqcCycleBaseCallsPlot calculates necessary statistics
#' @export
rqcCycleBaseCallsCalc <- function(rqcResultSet)
{
f <- function(x) {
variable <- x$base
value <- x$count / sum(x$count) * 100
data.frame(variable, value)
}
df <- perCycleBasecall(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.