Update model in example to use label()

DESCRIPTION

@@ -36,4 +36,4 @@ Suggests:
 Config/testthat/edition: 3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3

R/vpcPlot.R

@@ -22,17 +22,13 @@
 #' \donttest{
 #' one.cmt <- function() {
 #'  ini({
-#'    ## You may label each parameter with a comment
-#'    tka <- 0.45 # Log Ka
-#'    tcl <- log(c(0, 2.7, 100)) # Log Cl
-#'    ## This works with interactive models
-#'    ## You may also label the preceding line with label("label text")
-#'    tv <- 3.45; label("log V")
-#'    ## the label("Label name") works with all models
+#'    tka <- 0.45; label("Ka")
+#'    tcl <- log(c(0, 2.7, 100)); label("Cl")
+#'    tv <- 3.45; label("V")
 #'    eta.ka ~ 0.6
 #'    eta.cl ~ 0.3
 #'    eta.v ~ 0.1
-#'    add.sd <- 0.7
+#'    add.sd <- 0.7; label("Additive residual error")
 #'  })
 #'  model({
 #'    ka <- exp(tka + eta.ka)
@@ -45,9 +41,7 @@
 #' fit <- nlmixr2est::nlmixr(one.cmt, nlmixr2data::theo_sd, est="focei")
 #'
 #' vpcPlot(fit)
-#'
 #' }
-#'
 #' @export
 vpcPlot <- function(fit, data = NULL, n = 300, bins = "jenks",
                     n_bins = "auto", bin_mid = "mean",