Fix scScore to not use genes.stress in the function

r.scripts/sc-TissueMapper_functions.R

@@ -434,7 +434,7 @@ scScore <- function(sc10x,score,geneset,cut.pt=0.9,anchor=FALSE){
   }
   
   #Score geneset
-  sc10x <- AddModuleScore(object=sc10x,features=genes.stress,name=score,assay="RNA")
+  sc10x <- AddModuleScore(object=sc10x,features=geneset,name=score,assay="RNA")
   Idents(object=sc10x) <- paste0(score,"1")
   
   #CDF