From fc742adcfbea3bcca7ad1de2f71765dc04bd2d81 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 17 Nov 2016 22:41:35 +0100
Subject: Show diffs in correct mathematical form in summary

---
 R/mkinfit.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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]
 
-- 
cgit v1.2.1