Merge pull request #46 from generable/develop

jtimonen · web-flow · commit 7723889e87c7 · 2025-12-04T06:08:28.000+02:00
v0.2.10
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: bmstate
 Type: Package
 Title: Bayesian multistate modeling
-Version: 0.2.9
+Version: 0.2.10
 Authors@R:
     c(person(given = "Juho",
            family = "Timonen",
diff --git a/R/MultistateModelFit.R b/R/MultistateModelFit.R
@@ -407,7 +407,7 @@ msmfit_exposure <- function(fit, oos = FALSE, data = NULL) {
   out <- list()
   for (s in seq_len(S)) {
     if (sd$do_pk == 1) {
-      x_auc <- sd$dose_ss / pkpar[[s]][, 2] # D/CL
+      x_auc <- sd$dose_ss / (pkpar[[s]][, 2] * pkpar[[s]][, 3]) # D/(CL*V2)
     } else {
       x_auc <- NULL
     }

Original file line number	Diff line number	Diff line change
`@@ -407,7 +407,7 @@ msmfit_exposure <- function(fit, oos = FALSE, data = NULL) {`
`407`	`407`	`out <- list()`
`408`	`408`	`for (s in seq_len(S)) {`
`409`	`409`	`if (sd$do_pk == 1) {`
`410`		`- x_auc <- sd$dose_ss / pkpar[[s]][, 2] # D/CL`
	`410`	`+ x_auc <- sd$dose_ss / (pkpar[[s]][, 2] * pkpar[[s]][, 3]) # D/(CL*V2)`
`411`	`411`	`} else {`
`412`	`412`	`x_auc <- NULL`
`413`	`413`	`}`