aboutsummaryrefslogtreecommitdiff
path: root/R/mkinfit.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2016-11-17 22:41:35 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2016-11-17 22:41:35 +0100
commitfc742adcfbea3bcca7ad1de2f71765dc04bd2d81 (patch)
treebc815ea849ef5d74ce9643471d9a8821cdc5e658 /R/mkinfit.R
parent11e6ac82853c7e7e8ef4ba42de9f7ab408169b39 (diff)
Show diffs in correct mathematical form in summary
Diffstat (limited to 'R/mkinfit.R')
-rw-r--r--R/mkinfit.R3
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]

Contact - Imprint