require(singleCellTK)
require(ggplot2)
sce.qc<- params$object
    plotDecontX<- plotDecontXResults(sce.qc, reducedDimName = "UMAP")
    i="DecontX"
    cat(paste0('# ', i, ' {.tabset} \n\n'))
    cat(paste0('## Scatter Score \n\n'))
    plotDecontX$scatter_decontXContamination

    cat(paste0('## Scatter Clusters \n\n'))
    plotDecontX$scatter_decontXClusters

    cat(paste0('## Density Score \n\n'))
    plotDecontX$density_decontXContamination

    cat(paste0('## Violin Score \n\n'))
    plotDecontX$violin_decontXContamination

    cat(paste0('## Session info \n\n'))
    sce.qc@metadata$runDecontX
description_DecontX<- descriptionDecontX()

{.unlisted .unnumbered .toc-ignore}

r description_DecontX



compbiomed/singleCellTK documentation built on Oct. 27, 2024, 3:26 a.m.