Merge pull request #26 from nlmixr2/vpcplot-example

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

@@ -5,7 +5,7 @@
 #'   default is the fitted data, (can be retrieved by
 #'   \code{\link[nlme]{getData}}), but it can be changed by specifying
 #'   this argument.
-#' @param n Number of VPC simulations.  By default 100
+#' @param n Number of VPC simulations
 #' @param idv Name of independent variable. For `vpcPlot()` and
 #'   `vpcCens()` the default is `"time"` for `vpcPlotTad()` and
 #'   `vpcCensTad()` this is `"tad"`
@@ -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)
@@ -42,12 +38,16 @@
 #'  })
 #' }
 #'
-#' fit <- nlmixr2est::nlmixr(one.cmt, nlmixr2data::theo_sd, est="focei")
+#' fit <-
+#'   nlmixr2est::nlmixr(
+#'     one.cmt,
+#'     data = nlmixr2data::theo_sd,
+#'     est = "focei",
+#'     control = list(print = 0)
+#'   )
 #'
 #' vpcPlot(fit)
-#'
 #' }
-#'
 #' @export
 vpcPlot <- function(fit, data = NULL, n = 300, bins = "jenks",
                     n_bins = "auto", bin_mid = "mean",