diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-02 10:58:36 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-02 10:58:36 +0200 |
| commit | aae5aad05cfe695ede46373e032e277e555a8af9 (patch) | |
| tree | 1b8bc69b256e43b7853a859f28bbb2240959a299 /R/transform_odeparms.R | |
| parent | cfc50c426228455b277164e1c4c1412aae68f1be (diff) | |
Move handling of implicitly fixed formation fractions to mkinfit
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)
|