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

Contact - Imprint