#' @title make_RPKM Make RPKM.
#' @description make_RPKM populates RPKM slot of modified countData (countDat) S4 object.
#' @usage make_RPKM(cd_object)
#' @param cd_object A countDat object.
#' @author AJ Vaestermark, JR Walters.
#' @references The "doseR" package, 2018 (in press).
make_RPKM <- function(cd_object) {
return(
sweep(sweep(cd_object@data, 2, as.vector(libsizes(cd_object)/1000000), FUN = '/'), 1, cd_object@rowObservables$seglens/1000, FUN = '/')
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.