ifnb_sub | R Documentation |
Human PBMC control/IFNB-stimulated dataset
A Seurat
object.
https://www.nature.com/articles/nbt.4042
## Not run:
if (interactive()) {
if (!require("SeuratData", quietly = TRUE)) {
devtools::install_github("satijalab/seurat-data")
}
library(SeuratData)
library(Seurat)
suppressWarnings(InstallData("ifnb"))
data("ifnb")
set.seed(11)
cells_sub <- unlist(lapply(split(colnames(ifnb), ifnb$stim), function(x) sample(x, size = 1000)))
ifnb_sub <- subset(ifnb, cells = cells_sub)
ifnb_sub <- ifnb_sub[rowSums(ifnb_sub@assays$RNA@counts) > 0, ]
ifnb_sub <- UpdateSeuratObject(ifnb_sub)
# usethis::use_data(ifnb_sub, compress = "xz")
}
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.