Improve formatting of summary

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))

   }