require(singleCellTK) require(uwot) require(ggplot2)
sce.qc<- params$object
plotDoubletFinder<- plotDoubletFinderResults(inSCE = sce.qc, reducedDimName = "UMAP") i="DoubletFinder" cat(paste0('# ', i, ' {.tabset} \n\n')) cat(paste0('## Scatter Score Resolution 1.5 \n\n')) plotDoubletFinder$Scatter_Score_Resolution_1.5 cat(paste0('## Scatter Call Resolution 1.5 \n\n')) plotDoubletFinder$Scatter_Call_Resolution_1.5 cat(paste0('## Density Resolution 1.5 \n\n')) plotDoubletFinder$Density_Resolution_1.5 cat(paste0('## Violin Resolution 1.5 \n\n')) plotDoubletFinder$violin_Resolution_1.5 cat(paste0('## Session info \n\n')) sce.qc@metadata$runDoubletFinder
description_DoubletFinder <- descriptionDoubletFinder()
r description_DoubletFinder
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.