+2
-1
R/seurat_maps.R
+2
-1
R/seurat_maps.R
···
35
35
seurat.data <- ScaleData(seurat.data, features = all.genes)
36
36
37
37
#Perform linear dimensional reductionPerform linear dimensional reduction
38
-
counts <- seurat.data[["RNA"]]@counts
38
+
#counts <- seurat.data[["RNA"]]@counts
39
+
counts <- seurat.data[["RNA"]]$counts
39
40
cells <- length(counts[2,])
40
41
if(cells>50){
41
42
seurat.data <- RunPCA(seurat.data, features = VariableFeatures(object = seurat.data))