diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-08-19 17:55:06 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-08-19 17:55:06 +0200 |
| commit | 37a252cb44fed78c4f7a00a2f7874f1c47456468 (patch) | |
| tree | 4a8751620cb29d4d2a77b00a7fcab0d181d69af2 /R/mkinfit.R | |
| parent | ea171bdf4772824a7d61d3ac5189c0bbc5bc2900 (diff) | |
Improve formatting of differential equations in output
Rebuild of FOCUS_Z vignette with improved formatting
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index c98c7586..92c8f8bf 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -567,7 +567,7 @@ 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")
- print(noquote(as.character(x[["diffs"]])))
+ cat(noquote(strwrap(x[["diffs"]], exdent = 11)), fill = TRUE)
df <- x$df
rdf <- df[2]
|