Replace line 154 of sc_QuSAGE.Lineage.R removed in 8d47b5bb, labels lineage

r.scripts/sc_QuSAGE.Lineage.R

@@ -151,6 +151,7 @@ for (i in 1:Number.Clusters){
   } else {
     merge.cluster <- c(merge.cluster,"?")
   }}
+sc10x.Group@ident <- plyr::mapvalues(x=sc10x.Group@ident,from=1:Number.Clusters,to=merge.cluster)
 if ("?" %in% names(summary(sc10x.Group@ident))){
 sc10x.Group@ident <- factor(sc10x.Group@ident,levels=c("Epi","St","?"))
 } else {