aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/nlmixr.R6
1 files changed, 3 insertions, 3 deletions
diff --git a/R/nlmixr.R b/R/nlmixr.R
index 55a7bdd7..fd12f555 100644
--- a/R/nlmixr.R
+++ b/R/nlmixr.R
@@ -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"
)
}

Contact - Imprint