aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-05-11 09:05:25 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2020-05-11 09:05:25 +0200
commitadb597eef6ef840ef28486dbe3d93dc62b097a6d (patch)
tree7daf51a32a2765138d519c781aa7fbfbc53d4ab9 /R
parent234c9059a95e104917e488a6ddd2313234a96cdc (diff)
Reduce precision of traced parameters, formatting
Diffstat (limited to '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