diff options
| -rw-r--r-- | NEWS.md | 4 | ||||
| -rw-r--r-- | R/mkinfit.R | 15 |
2 files changed, 14 insertions, 5 deletions
@@ -12,6 +12,10 @@ - Use an index.r file to group help topics in static documentation +### Bug fixes + +- `print.summary.mkinfit()`: Avoid an error that occurred when printing summaries generated with mkin versions before 0.9-36 + ## mkin 0.9-40 (2015-07-21) ### Bug fixes diff --git a/R/mkinfit.R b/R/mkinfit.R index e2fd2951..4cc92f43 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -684,11 +684,16 @@ print.summary.mkinfit <- function(x, digits = max(3, getOption("digits") - 3), . cat("\nResidual standard error:",
format(signif(x$sigma, digits)), "on", rdf, "degrees of freedom\n")
- cat("\nBacktransformed parameters:\n",
- " Confidence intervals for internally transformed parameters are asymmetric.\n",
- " t-test (unrealistically) based on the assumption of normal distribution\n",
- " for estimators of untransformed parameters.\n", sep = "")
- print(signif(x$bpar[, c(1, 3, 4, 5, 6)], digits = digits))
+ cat("\nBacktransformed parameters:\n")
+ cat(" Confidence intervals for internally transformed parameters are asymmetric.\n")
+ if ((x$version) < "0.9-36") {
+ cat(" To get the usual (questionable) t-test, upgrade mkin and repeat the fit.\n")
+ print(signif(x$bpar, digits = digits))
+ } else {
+ cat(" t-test (unrealistically) based on the assumption of normal distribution\n")
+ cat(" for estimators of untransformed parameters.\n")
+ print(signif(x$bpar[, c(1, 3, 4, 5, 6)], digits = digits))
+ }
cat("\nChi2 error levels in percent:\n")
x$errmin$err.min <- 100 * x$errmin$err.min
|