From db1646611b4955637226b88d3a07203e5bd04eb7 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 26 Jun 2014 13:08:17 +0200
Subject: Avoid calculation of formation fractions if fitted

---
 R/endpoints.R | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'R/endpoints.R')

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") {
-- 
cgit v1.2.1