diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-11 09:05:25 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-11 09:05:25 +0200 |
| commit | adb597eef6ef840ef28486dbe3d93dc62b097a6d (patch) | |
| tree | 7daf51a32a2765138d519c781aa7fbfbc53d4ab9 /R/mkinfit.R | |
| parent | 234c9059a95e104917e488a6ddd2313234a96cdc (diff) | |
Reduce precision of traced parameters, formatting
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index f6691b1b..9c3f2baa 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -532,7 +532,7 @@ mkinfit <- function(mkinmod, observed, assign("calls", calls + 1, inherits = TRUE) # Increase the model solution counter # Trace parameter values if requested and if we are actually optimising - if(trace_parms & update_data) cat(P, "\n") + if(trace_parms & update_data) cat(format(P, width = 10, digits = 6), "\n") # Determine local parameter values for the cost estimation if (is.numeric(fixed_degparms)) { @@ -688,7 +688,7 @@ mkinfit <- function(mkinmod, observed, current_data <- NA # Show parameter names if tracing is requested - if(trace_parms) cat(names_optim, "\n") + if(trace_parms) cat(format(names_optim, width = 10), "\n") #browser() |