aboutsummaryrefslogtreecommitdiff
path: root/R/mkinmod.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/mkinmod.R')
-rw-r--r--R/mkinmod.R5
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

Contact - Imprint