aboutsummaryrefslogtreecommitdiff
path: root/R/mkinfit.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2015-11-06 17:15:45 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2015-11-06 17:15:45 +0100
commit29db2150036d988632b75b2787ba393626ff7617 (patch)
treedd26111757d9df53e21bc7d7e0afb11953fb4cd7 /R/mkinfit.R
parent61b815b2418fec89fd3e613094bf28e596f18e7e (diff)
Improve formatting of summary
Diffstat (limited to 'R/mkinfit.R')
-rw-r--r--R/mkinfit.R8
1 files changed, 4 insertions, 4 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R
index 4cc92f43..4a5be20a 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -685,13 +685,13 @@ print.summary.mkinfit <- function(x, digits = max(3, getOption("digits") - 3), .
format(signif(x$sigma, digits)), "on", rdf, "degrees of freedom\n")
cat("\nBacktransformed parameters:\n")
- cat(" Confidence intervals for internally transformed parameters are asymmetric.\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")
+ 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")
+ 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))
}

Contact - Imprint