Only align 25 dims for 3CCA

r.scripts/sc-TissueMapper.R

@@ -1095,7 +1095,7 @@ sc3CCA <-  function(sc10x.1,sc10x.2,sc10x.3,nm.1="D17",nm.2="D27",nm.3="D35",cc=
   #dev.off()
   
   gc()
-  sc10x <- AlignSubspace(sc10x,reduction.type="cca",grouping.var="patient",dims.align=1:30)
+  sc10x <- AlignSubspace(sc10x,reduction.type="cca",grouping.var="patient",dims.align=1:25)
   gc()
   
   postscript("./analysis/cca/CCA.Aligned.eps",paper="special",width=10,height=5,horizontal=FALSE)
@@ -1296,4 +1296,4 @@ RenameCells <- function(object, add.cell.id = NULL, new.names = NULL,
   # rownames(object@spatial@mix.probs) <- new.cell.names
   
   return(object)
-}
\ No newline at end of file
+}