From ed1529678084de15263451ea905af715878bc42e Mon Sep 17 00:00:00 2001 From: stnava Date: Wed, 7 Oct 2020 05:55:40 -0400 Subject: [PATCH] BUG: should not set seed there --- DESCRIPTION | 2 +- R/multiscaleSVDxpts.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index df8b92b0d..5e2b7fe56 100644 --- 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 = "stnava@gmail.com"), diff --git a/R/multiscaleSVDxpts.R b/R/multiscaleSVDxpts.R index cb2a1a74f..d32369945 100644 --- 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)