Slide 109
Slide 109 text
Adaptive outlier detection using a subset of the data
discard.ercc <- isOutlier(sce.grun$altexps_ERCC_percent,
type="higher", batch=sce.grun$donor)
discard.ercc2 <- isOutlier(sce.grun$altexps_ERCC_percent,
type="higher", batch=sce.grun$donor,
subset=sce.grun$donor %in% c("D17", "D2", "D7"))
plotColData(sce.grun, x="donor", y="altexps_ERCC_percent",
colour_by=data.frame(discard = discard.ercc))
plotColData(sce.grun, x="donor", y="altexps_ERCC_percent",
colour_by=data.frame(discard = discard.ercc2))