diff options
| -rw-r--r-- | R/mkinfit.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index 05986ff9..42b304a6 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -668,7 +668,8 @@ print.summary.mkinfit <- function(x, digits = max(3, getOption("digits") - 3), . if (!is.null(x$warning)) cat("\n\nWarning:", x$warning, "\n\n")
cat("\nEquations:\n")
- writeLines(strwrap(x[["diffs"]], exdent = 11))
+ nice_diffs <- gsub("^(d.*) =", "\\1/dt =", x[["diffs"]])
+ writeLines(strwrap(nice_diffs, exdent = 11))
df <- x$df
rdf <- df[2]
|