From aae5aad05cfe695ede46373e032e277e555a8af9 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 2 Jul 2014 10:58:36 +0200 Subject: Move handling of implicitly fixed formation fractions to mkinfit --- R/transform_odeparms.R | 6 ------ 1 file changed, 6 deletions(-) (limited to 'R/transform_odeparms.R') 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) -- cgit v1.2.1