aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2012-12-13 21:18:13 +0000
committerjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2012-12-13 21:18:13 +0000
commitd10f5ee98dc5913e7ac581f06d1d9297d7ae7582 (patch)
tree65019e9cf609a15a315f4496130baeba30dbfe13
parentdf916b91c90f80e2c68f3e136a7b6e07b8c6bae1 (diff)
Small formatting improvements
git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@59 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
-rw-r--r--R/mkinmod.R13
1 files changed, 8 insertions, 5 deletions
diff --git a/R/mkinmod.R b/R/mkinmod.R
index 1a1c55c2..5d8271a2 100644
--- a/R/mkinmod.R
+++ b/R/mkinmod.R
@@ -25,15 +25,16 @@ mkinmod <- function(..., use_of_ff = "min")
if (!use_of_ff %in% c("min", "max"))
stop("The use of formation fractions 'use_of_ff' can only be 'min' or 'max'")
- # The returned model will be a list of character vectors, containing#{{{
+ # The returned model will be a list of character vectors, containing {{{
# differential equations, parameter names and a mapping from model variables
# to observed variables. If possible, a matrix representation of the
# differential equations is included
parms <- vector()
diffs <- vector()
- map <- list()#}}}
+ map <- list()
+ # }}}
- # Give a warning when a model with time dependent degradation uses formation#{{{
+ # Give a warning when a model with time dependent degradation uses formation {{{
# fractions
if(spec[[1]]$type %in% c("FOMC", "DFOP", "HS")) {
mat = FALSE
@@ -41,11 +42,13 @@ mkinmod <- function(..., use_of_ff = "min")
message <- paste(
"Only constant formation fractions over time are implemented.",
"Depending on the reason for the time dependence of degradation",
- "this may be unrealistic",
+ "this may be unrealistic. You may want to consider using the",
+ "SFORB model",
sep="\n")
warning(message)
} else message <- "ok"
- } else mat = TRUE#}}}
+ } else mat = TRUE
+ #}}}
# Establish list of differential equations as well as map from observed {{{
# compartments to differential equations

Contact - Imprint