# \donttest{
if (requireNamespace("EnhancedVolcano", quietly = TRUE)) {
defaultCluster(pbmc) <- pbmcPlot$leiden_cluster
# Test the DEG between "stim" and "ctrl", within each cluster
result <- runPairwiseDEG(
pbmc,
groupTest = "stim",
groupCtrl = "ctrl",
variable1 = "dataset",
splitBy = "defaultCluster"
)
plotEnhancedVolcano(result, "0.stim")
}
# }
Run the code above in your browser using DataLab