require(singleCellTK) require(ggplot2)
sce<- params$object
plotsEmptyDrops<- plotEmptyDropsResults(sce) i="EmptyDrops" cat(paste0('# ', i, ' {.tabset .tabset-fade} \n\n')) cat(paste0('## EmptyDrops, Total UMI counts vs Log-Probability \n\n')) plotsEmptyDrops$scatterEmptyDrops[[1]] cat(paste0('## Session info \n\n')) sce@metadata$runEmptyDrops
description_runEmptyDrops <- descriptionEmptyDrops()
r description_runEmptyDrops
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.