require(singleCellTK)
require(ggplot2)
sce.qc<- params$object
    plotCxds<- plotCxdsResults(sce.qc, reducedDimName = "UMAP")
    i="Cxds"
    cat(paste0('# ', i, ' {.tabset} \n\n'))
    cat(paste0('## Scatter Score \n\n'))
    plotCxds$scatterScore

    cat(paste0('## Density Score \n\n'))
    plotCxds$densityScore

    cat(paste0('## Violin Score \n\n'))
    plotCxds$violinScore

    cat(paste0('## Session info \n\n'))
    sce.qc@metadata$runCxds
description_CxdsResults<- descriptionCXDS()

{.unlisted .unnumbered .toc-ignore}

r description_CxdsResults



compbiomed/singleCellTK documentation built on May 8, 2024, 6:58 p.m.