diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-12-09 08:40:49 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-12-09 08:40:49 +0100 |
| commit | 0517ca6179d3c4bc35cc7edcfd5de3d98aa4fd64 (patch) | |
| tree | 0904af01fa5308e8cd39e94c4ab655df90df6c1f /R/summary.saem.mmkin.R | |
| parent | dcb7d15f36b5a2315a6ef7652360ae90ec414141 (diff) | |
Some more tests
Diffstat (limited to 'R/summary.saem.mmkin.R')
| -rw-r--r-- | R/summary.saem.mmkin.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/summary.saem.mmkin.R b/R/summary.saem.mmkin.R index 27c2ce6c..3f50c42d 100644 --- a/R/summary.saem.mmkin.R +++ b/R/summary.saem.mmkin.R @@ -207,11 +207,11 @@ print.summary.saem.mmkin <- function(x, digits = max(3, getOption("digits") - 3) tc = "Two-component variance function"), "\n") cat("\nMean of starting values for individual parameters:\n") - print(x$mean_dp_start) + print(x$mean_dp_start, digits = digits) cat("\nFixed degradation parameter values:\n") if(length(x$fixed$value) == 0) cat("None\n") - else print(x$fixed) + else print(x$fixed, digits = digits) cat("\nResults:\n\n") cat("Likelihood computed by importance sampling\n") |