DOC: rank or robust - same thing

ANTsX · Aug 9, 2024 · d5bc29e · d5bc29e
1 parent 7a41c0d
commit d5bc29e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/multiscaleSVDxpts.R b/R/multiscaleSVDxpts.R
@@ -3173,7 +3173,7 @@ simlr <- function(
     vmats,
     connectors = NULL,
     optimizationStyle = c("lineSearch", "mixed", "greedy"),
-    scale = c("centerAndScale", "sqrtnp", "np", "center", "norm", "none", "impute", "eigenvalue", "robust", 'whiten', 'lowrank'  ),
+    scale = c("centerAndScale", "sqrtnp", "np", "center", "norm", "none", "impute", "eigenvalue", "robust", 'whiten', 'lowrank', 'rank'  ),
     expBeta = 0.0,
     jointInitialization = TRUE,
     sparsenessAlg = NA,
@@ -3195,7 +3195,7 @@ simlr <- function(
   optimizationStyle <- match.arg(optimizationStyle)
   scalechoices = c(
       "sqrtnp", "np", "centerAndScale",
-      "norm", "none", "impute", "eigenvalue", "center", "robust", 'lowrank','whiten'
+      "norm", "none", "impute", "eigenvalue", "center", "robust", 'lowrank','whiten','rank'
     )
   scaleList <- c()
   if (length(scale) == 1) {
@@ -3300,7 +3300,7 @@ simlr <- function(
         if (scaleList[j] == "eigenvalue") {
           voxmats[[i]] <- voxmats[[i]] / sum(svd(voxmats[[i]])$d)
         }
-        if (scaleList[j] == "robust") {
+        if ( scaleList[j] %in% c("robust","rank") ) {
           voxmats[[i]] <- robustMatrixTransform(voxmats[[i]])
         }
         if (scaleList[j] == "whiten") {

diff --git a/man/simlr.Rd b/man/simlr.Rd