Take care of vpcSim objects

nlmixr2 · Aug 15, 2022 · 734ad73 · 734ad73
1 parent 91a6cab
commit 734ad73
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/vpcPlot.R b/R/vpcPlot.R
@@ -72,7 +72,11 @@ vpcPlot <- function(fit, data = NULL, n = 300, bins = "jenks",
     }
   }
   # Simulate with VPC
-  .sim <- nlmixr2est::vpcSim(fit, ..., keep=stratify, n=n, pred=pred_corr, seed=seed)
+  if (inheirts(fit, "nlmixr2vpcSim")) {
+    .sim <- fit
+  } else {
+    .sim <- nlmixr2est::vpcSim(fit, ..., keep=stratify, n=n, pred=pred_corr, seed=seed)
+  }
   .sim <- nlmixr2est::vpcSimExpand(fit, .sim, stratify)
   .simCols <- list(
     id="id",