diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-01 08:33:14 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-01 08:33:14 +0200 |
| commit | f836d2e30ab206c2e8558fd4cca89b8ee3d08f05 (patch) | |
| tree | f836389903fced232aa657e8809f251baee9ed80 /R/mkinmod.R | |
| parent | ac0e13ae62fe01caffb95897bcab555dd09935d0 (diff) | |
One more check, update source code comment
Diffstat (limited to 'R/mkinmod.R')
| -rw-r--r-- | R/mkinmod.R | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/R/mkinmod.R b/R/mkinmod.R index 2bc6ae35..49ec4a44 100644 --- a/R/mkinmod.R +++ b/R/mkinmod.R @@ -26,6 +26,7 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL) for (obs_var in obs_vars) {
if (length(grep(obs_var, obs_vars)) > 1) stop("Sorry, variable names can not contain each other")
if (grepl("_to_", obs_var)) stop("Sorry, names of observed variables can not contain _to_")
+ if (obs_var == "sink") stop("Naming a compound 'sink' is not supported")
}
if (!use_of_ff %in% c("min", "max"))
@@ -40,8 +41,8 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL) map <- list()
# }}}
- # Give a warning when a model with time dependent degradation uses formation {{{
- # fractions
+ # Do not return a coefficient matrix mat when FOMC, DFOP or HS are used for
+ # the parent compound {{{
if(spec[[1]]$type %in% c("FOMC", "DFOP", "HS")) {
mat = FALSE
} else mat = TRUE
|