Get lower case $TIME

nlmixr2 · Sep 21, 2022 · d314762 · d314762
1 parent e33a99f
commit d314762
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/vpcPlot.R b/R/vpcPlot.R
@@ -106,7 +106,9 @@ vpcPlot <- function(fit, data = NULL, n = 300, bins = "jenks",
     .obs <- as.data.frame(fit)
     .obs$idv <- .obs[[idv]]
     .w <- which(tolower(names(.obs)) == idv)
-    .obs$TIME <- .obs[, .w]
+    .time <- .obs[, .w]
+    .obs <- .obs[, -.w]
+    .obs$TIME <- .time
     return(vpc::vpc_cens(sim=.sim,
                          obs=.obs,
                          bins=bins, n_bins=n_bins, bin_mid=bin_mid,