From a62c2f5422a982a60c184b0bad4eee0afb005fac Mon Sep 17 00:00:00 2001
From: ronkeizer <ron@insight-rx.com>
Date: Tue, 19 Feb 2019 14:33:46 -0800
Subject: [PATCH] fix TMD init parameter Q

---
 DESCRIPTION        | 4 ++--
 R/model_from_api.R | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 4e808474..800e09f9 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: PKPDsim
 Type: Package
 Title: Simulate ODE models
-Version: 1.0.14
-Date: 2019-01-21
+Version: 1.0.15
+Date: 2019-02-19
 Author: Ron Keizer
 Maintainer: Ron Keizer <ronkeizer@gmail.com>
 Depends: R (>= 3.0.2)
diff --git a/R/model_from_api.R b/R/model_from_api.R
index 422d30e7..584fc7a4 100644
--- a/R/model_from_api.R
+++ b/R/model_from_api.R
@@ -120,7 +120,7 @@ model_from_api <- function(model = NULL,
         if(def$misc$model_type == "2cmt_iv") {
           def$state_init <- "\
               A[0] = TDM_INIT * Vi;\
-              A[1] = (Q/Vi)*(TDM_INIT * Vi) / (Q/V2i);\
+              A[1] = (Qi/Vi)*(TDM_INIT * Vi) / (Qi/V2i);\
           "
         }
       }