diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-01 23:23:52 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-02 00:25:00 +0200 |
| commit | 71d43b104999d7aee96d35ff2a9006f739d2df60 (patch) | |
| tree | 88bf04296b028f94ee0c39b99ca48df57b18e973 /R/mkinmod.R | |
| parent | ddaa35ff58c8dcb04ef86723dccba0bfa97cf053 (diff) | |
Support formation fractions without sink pathway, updates
Diffstat (limited to 'R/mkinmod.R')
| -rw-r--r-- | R/mkinmod.R | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/R/mkinmod.R b/R/mkinmod.R index 49ec4a44..fe5e8142 100644 --- a/R/mkinmod.R +++ b/R/mkinmod.R @@ -164,9 +164,6 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL) diffs[[target_box]] <- paste(diffs[[target_box]], "+",
k_from_to, "*", origin_box)
} else {
- if (!spec[[varname]]$sink) {
- stop("Turning off the sink when using formation fractions is not supported")
- }
fraction_to_target = paste("f", origin_box, "to", target, sep="_")
parms <- c(parms, fraction_to_target)
diffs[[target_box]] <- paste(diffs[[target_box]], "+",
|