BUG: should not set seed there

ANTsX · Oct 7, 2020 · ed15296 · ed15296
1 parent 7fb5106
commit ed15296
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: ANTsR
 Type: Package
 Title: ANTs in R: Quantification Tools for Biomedical Images
-Version: 0.5.6.9
+Version: 0.5.7.0
 Date: 2020-05-20
 Authors@R: c(
     person(c("Brian", "B"), "Avants", role = c("aut", "cre"), email = "[email protected]"),

diff --git a/R/multiscaleSVDxpts.R b/R/multiscaleSVDxpts.R
@@ -2701,7 +2701,7 @@ simlr <- function(
   if (  missing( energyType ) ) energyType = "regression"
   if (  missing( mixAlg ) ) mixAlg = "ica"
   if (  missing( optimizationStyle ) ) optimizationStyle = "lineSearch"
-  if ( ! missing( "randomSeed" ) ) set.seed( randomSeed ) else set.seed( 0 )
+  if ( ! missing( "randomSeed" ) ) set.seed( randomSeed )
   energyType = match.arg(energyType)
   constraint = match.arg(constraint)
   optimizationStyle = match.arg(optimizationStyle)