require(singleCellTK) require(ggplot2)
plotBcds<- plotBcdsResults(sce.qc, reducedDimName = "UMAP") i="Bcds" cat(paste0('# ', i, ' {.tabset} \n\n')) cat(paste0('## Scatter Score \n\n')) plotBcds$scatter_doubletScore cat(paste0('## Scatter Call \n\n')) plotBcds$scatter_doubletCall cat(paste0('## Density Score \n\n')) plotBcds$density_doubletScore cat(paste0('## Violin Score \n\n')) plotBcds$violin_doubletScore cat(paste0('## Session info \n\n')) sce.qc@metadata$runBcds
description_BcdsResults<- descriptionBCDS()
r description_BcdsResults
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.