aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-06-26 13:08:17 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-06-26 13:08:17 +0200
commitdb1646611b4955637226b88d3a07203e5bd04eb7 (patch)
treef7d0c03908b484c7ac4fc99867e615cf271e820b /R
parent787f32a83f08ecd77e0d043bcc17010eecb93fe3 (diff)
Avoid calculation of formation fractions if fitted
Diffstat (limited to 'R')
-rw-r--r--R/endpoints.R8
1 files changed, 5 insertions, 3 deletions
diff --git a/R/endpoints.R b/R/endpoints.R
index 5150b4bd..0bd20ea7 100644
--- a/R/endpoints.R
+++ b/R/endpoints.R
@@ -32,9 +32,11 @@ endpoints <- function(fit) {
k_tot = sum(parms.all[k_names])
DT50 = log(2)/k_tot
DT90 = log(10)/k_tot
- for (k_name in k_names)
- {
- ep$ff[[sub("k_", "", k_name)]] = parms.all[[k_name]] / k_tot
+ if (fit$mkinmod$use_of_ff == "min") {
+ for (k_name in k_names)
+ {
+ ep$ff[[sub("k_", "", k_name)]] = parms.all[[k_name]] / k_tot
+ }
}
}
if (type == "FOMC") {

Contact - Imprint