diff options
Diffstat (limited to 'R/transform_odeparms.R')
| -rw-r--r-- | R/transform_odeparms.R | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/R/transform_odeparms.R b/R/transform_odeparms.R index 4774fcf6..912a5c0a 100644 --- a/R/transform_odeparms.R +++ b/R/transform_odeparms.R @@ -114,12 +114,6 @@ backtransform_odeparms <- function(transparms, mkinmod, f_names = grep(paste("^f", box, sep = "_"), mkinmod$parms, value = TRUE)
# Get the formation fraction parameters
trans_f = transparms[grep(paste("^f", box, sep = "_"), names(transparms))]
-
- # If we have one formation fraction parameter, but no optimised parameter,
- # the one must be unity
- if (length(trans_f) == 0 & length(f_names == 1)) {
- parms[f_names] = 1
- }
if (length(trans_f) > 0) {
if(transform_fractions) {
f <- invilr(trans_f)
|