reset parscale to TRUE at the end of each run to avoid coercion warnings

DistanceDevelopment · Aug 9, 2016 · f33729a · f33729a
1 parent ad50136
commit f33729a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/detfct.fit.opt.R b/R/detfct.fit.opt.R
@@ -227,7 +227,7 @@ detfct.fit.opt <- function(ddfobj, optim.options, bounds, misc.options,
         # rescale_pars
         if(!is.null(ddfobj$scale$formula) && (ddfobj$scale$formula != ~1) &&
            !is.null(optim.options$parscale) &&
-           all(optim.options$parscale)&&
+           all(optim.options$parscale) &&
             (opt.method=="nlminb") && (fitting=="all")){
 
           # get the rescaling
@@ -255,6 +255,8 @@ detfct.fit.opt <- function(ddfobj, optim.options, bounds, misc.options,
           # put the results in a nice format
           lt <- parse.optimx(lt, lnl.last, initialvalues)
           initialvalues <- lt$par
+          # reset parscale to be logical, it will be recalculated each time
+          optim.options$parscale <- TRUE
         } # end rescaled nlminb
 
         ## use optimx if there are methods left