Fix error from previous commit

r.scripts/sc-TissueMapper_functions.R

@@ -169,7 +169,7 @@ scQC <- function(sc10x,lg=500,hg=2500,hm=0.1,sub=FALSE){
   grid.arrange(plot1,plot2,nrow=1)
   dev.off()
   counts.cell.filtered <- ncol(GetAssayData(object=sc10x.sub,slot="counts"))
-  counts.gene.filtered <- nrow(rix(GetAssayData(object=sc10x.sub,slot="counts"))
+  counts.gene.filtered <- nrow(GetAssayData(object=sc10x.sub,slot="counts"))
   
   results <- list(
     sc10x=sc10x.sub,