Fixed a small bug which caused strange AIF when interpolating parent …

…fraction with no early time points
mathesong · Aug 15, 2024 · 3f31827 · 3f31827
1 parent a586fa2
commit 3f31827
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/kinfitr_blooddata.R b/R/kinfitr_blooddata.R
@@ -968,6 +968,12 @@ bd_extract_pf <- function(blooddata,
     return(pf)
   }
 
+  # For pred and interp, we want interpolation to start at 1 at time 0
+  if(!(0 %in% pf$time)) {
+    pf <- rbind(c(0,1),
+                pf)
+  }
+
   blood <- bd_extract_bpr(blooddata, startTime, stopTime, what = "pred")
 
   ## Interp