diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-21 18:52:24 +0200 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-21 18:54:37 +0200 |
commit | e09f726134ee273b6b191c1ec6465e6f701b082b (patch) | |
tree | aabc6bec231fb9dd085deef57a030e41ec398bf4 /man/plot.mkinfit.Rd | |
parent | bea054418c5310103252f5d243b2d18fcbf7b11f (diff) |
Improve some plotting routines, more tests
Static documentation rebuilt by pkgdown
Diffstat (limited to 'man/plot.mkinfit.Rd')
-rw-r--r-- | man/plot.mkinfit.Rd | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/man/plot.mkinfit.Rd b/man/plot.mkinfit.Rd index a4f47073..e7b456a1 100644 --- a/man/plot.mkinfit.Rd +++ b/man/plot.mkinfit.Rd @@ -1,6 +1,8 @@ \name{plot.mkinfit} \alias{plot.mkinfit} \alias{plot_sep} +\alias{plot_res} +\alias{plot_err} \title{ Plot the observed data and the fitted model of an mkinfit object } @@ -26,9 +28,12 @@ show_errplot = FALSE, maxabs = "auto", sep_obs = FALSE, rel.height.middle = 0.9, + row_layout = FALSE, lpos = "topright", inset = c(0.05, 0.05), show_errmin = FALSE, errmin_digits = 3, frame = TRUE, \dots) -plot_sep(fit, sep_obs = TRUE, show_residuals = TRUE, show_errmin = TRUE, \dots) +plot_sep(fit, show_errmin = TRUE, \dots) +plot_res(fit, sep_obs = FALSE, show_errmin = sep_obs, \dots) +plot_err(fit, sep_obs = FALSE, show_errmin = sep_obs, \dots) } \arguments{ \item{x}{ @@ -92,6 +97,10 @@ plot_sep(fit, sep_obs = TRUE, show_residuals = TRUE, show_errmin = TRUE, \dots) \item{rel.height.middle}{ The relative height of the middle plot, if more than two rows of plots are shown. } + \item{row_layout}{ + Should we use a row layout where the residual plot or the error model plot is shown + to the right? + } \item{lpos}{ Position(s) of the legend(s). Passed to \code{\link{legend}} as the first argument. If not length one, this should be of the same length as the obs_var argument. @@ -123,8 +132,8 @@ SFO_SFO <- mkinmod(parent = mkinsub("SFO", "m1", full = "Parent"), m1 = mkinsub("SFO", full = "Metabolite M1" )) fit <- mkinfit(SFO_SFO, FOCUS_2006_D, quiet = TRUE, error_model = "tc") plot(fit) -plot(fit, show_residuals = TRUE) -plot(fit, show_errplot = TRUE) +plot_res(fit) +plot_err(fit) # Show the observed variables separately plot(fit, sep_obs = TRUE, lpos = c("topright", "bottomright")) |