From 29db2150036d988632b75b2787ba393626ff7617 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 6 Nov 2015 17:15:45 +0100 Subject: Improve formatting of summary --- R/mkinfit.R | 8 ++++---- 1 file 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)) } -- cgit v1.2.1