diff options
-rw-r--r-- | R/nlmixr.R | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -361,10 +361,10 @@ nlmixr_model <- function(object, ini_block <- paste0( ini_block, parm_name, " = ", - as.character(degparms_start[parm_name]), + as.character(signif(degparms_start[parm_name], 2)), "\n", "eta.", parm_name, " ~ ", - as.character(eta_start[parm_name]), + as.character(signif(eta_start[parm_name], 2)), "\n" ) } @@ -422,7 +422,7 @@ nlmixr_model <- function(object, ini_block <- paste0( ini_block, parm_name, " = ", - as.character(errparms_ini[parm_name]), + as.character(signif(errparms_ini[parm_name], 2)), "\n" ) } |