From adb597eef6ef840ef28486dbe3d93dc62b097a6d Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 11 May 2020 09:05:25 +0200 Subject: Reduce precision of traced parameters, formatting --- R/mkinfit.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'R') 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() -- cgit v1.2.1