default ylab plot text given vpc type

certara · Sep 26, 2023 · 98e4a70 · 98e4a70
1 parent c2e43a1
commit 98e4a70
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -113,8 +113,14 @@ plot.tidyvpcobj <- function(x,
 
   if (is.null(ylab)) {
     ylab <-
-      sprintf("Observed/Simulated probabilities and associated %s%% CI",
-              100 * vpc$conf.level)
+      paste0(
+        ifelse(vpc_type == "continuous", "Percentiles", "Probabilities"),
+        sprintf(" and associated %s%% CI",
+                100 * vpc$conf.level)
+      )
+    if (is.null(vpc$stats)) {
+      ylab <- NULL
+    }
     if (isTRUE(vpc$predcor)) {
       ylab <- ifelse(length(ylab) == 0,
                      "Prediction Corrected",