aboutsummaryrefslogtreecommitdiff
path: root/R/mkinfit.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/mkinfit.R')
-rw-r--r--R/mkinfit.R4
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()

Contact - Imprint