Commit a8a133ff authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Fix subset

parent 82f83860
......@@ -123,10 +123,10 @@ sc10x$lung <- labs.raw
Idents(sc10x) <- "lin"
sc10x.epi <- subset(sc10x, idents="Epithelia")
sc10x.fmst <- subset(sc10x, idents=colnames(sc10x@meta.data) %in% c("Fibroblast","Smooth Muscle"))
sc10x.fmst <- subset(sc10x, idents=unique(Idents(sc10x))[unique(Idents(sc10x)) %in% c("Fibroblast","Smooth Muscle")])
sc10x.fib <- subset(sc10x, idents="Fibroblast")
sc10x.sm <- subset(sc10x, idents="Smooth Muscle")
sc10x.leu <- subset(sc10x, idents=colnames(sc10x@meta.data) %in% c("Lymphoid", "Myeloid", "Granulocyte"))
sc10x.leu <- subset(sc10x, idents=unique(Idents(sc10x))[unique(Idents(sc10x)) %in% c("Lymphoid", "Myeloid", "Granulocyte")])
res <- c(seq(0.1,0.5,0.1),0.75,seq(1,5,1))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment