From edf61fcc74d7ef723a9f881f32f285b9c5c2ee1c Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Fri, 18 Nov 2016 16:25:05 +0100
Subject: Show differential equations when printing mkinmods

---
 R/mkinmod.R | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'R/mkinmod.R')

diff --git a/R/mkinmod.R b/R/mkinmod.R
index 7f7f8587..491b3d0a 100644
--- a/R/mkinmod.R
+++ b/R/mkinmod.R
@@ -370,5 +370,8 @@ print.mkinmod <- function(x, ...) {
   }
   if (is.matrix(x$coefmat)) cat("Coefficient matrix $coefmat available\n")
   if (!is.null(x$cf)) cat("Compiled model $cf available\n")
+  cat("Differential equations:\n")
+  nice_diffs <- gsub("^(d.*) =", "\\1/dt =", x[["diffs"]])
+  writeLines(strwrap(nice_diffs, exdent = 11))
 }
 # vim: set foldmethod=marker ts=2 sw=2 expandtab:
-- 
cgit v1.2.1