require(ggplot2) require(SingleCellExperiment) require(singleCellTK)
sce<-params$object
plotsBarcodeRank<- plotBarcodeRankScatter(sce) i="BarcodeRanks" cat(paste0('# ', i, ' {.tabset .tabset-fade} \n\n')) cat(paste0('## BarcodeRanks, Total UMI counts vs Rank \n\n')) plotsBarcodeRank cat(paste0('## Session info \n\n')) sce@metadata$runBarcodeRankDrops
description_runBarcodeRank <- descriptionBarcodeRank()
r description_runBarcodeRank
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.