diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2016-11-18 16:25:05 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2016-11-18 16:25:05 +0100 |
| commit | edf61fcc74d7ef723a9f881f32f285b9c5c2ee1c (patch) | |
| tree | 370b48e4b535144315afbe11947657a28f44e54b | |
| parent | c6086d1dd97ad2d6420625de7b8009b1b0f85d06 (diff) | |
Show differential equations when printing mkinmods
| -rw-r--r-- | R/mkinmod.R | 3 |
1 files changed, 3 insertions, 0 deletions
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:
|