fix TMD init parameter Q

InsightRX · Feb 19, 2019 · a62c2f5 · a62c2f5
1 parent a0885ef
commit a62c2f5
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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 <[email protected]>
 Depends: R (>= 3.0.2)

diff --git 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);\
           "
         }
       }