Put sc_QC parameters into the call

r.scripts/sc-TissueMapper_RUN.R

@@ -24,10 +24,7 @@ scFolders()
 
 sc10x <- scLoad(p="Pd")
 
-lg=500
-hg=2500
-hm=0.1
-results <- scQC(sc10x,lg=lg,hg=hg,hm=hm,sub=FALSE)
+results <- scQC(sc10x,lg=500,hg=2500,hm=0.1,sub=FALSE)
 sc10x <- results[[1]]
 counts.cell.raw <- results[[2]]
 counts.gene.raw <- results[[3]]