tools/pancreas.R

library(SingleCellExperiment)
library(readr)
download.file(
    "https://scrnaseq-public-datasets.s3.amazonaws.com/scater-objects/segerstolpe.rds",
    destfile = "data/pancreas.rds"
)
sce <- read_rds("data/pancreas.rds")
sce <- sce[, !sce$cell_type1 == "not applicable"]
sce <-
    sce[str_subset(rownames(sce), pattern = "ERCC", negate = TRUE), ]
write_rds(sce, "data/scePancreas.rds")
cbl-imagine/cellID documentation built on July 24, 2020, 9:35 p.m.