feat: plot confidence bands in plot_surv_roc_trend

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ameld
 Title: Data and Model of End-Stage Liver Disease used in the AMPEL Project
-Version: 0.0.29
-Date: 2022-11-28
+Version: 0.0.30
+Date: 2022-11-30
 Description:
     A dataset of patients evaluated for liver transplantation at the
     University Hospital Leipzig from November 2012 to June 2015.

NEWS.md

@@ -2,6 +2,11 @@
 
 ## Changes in development
 
+## Changes in 0.0.30
+
+- Print confidence intervals in `plot_surv_roc` legend.
+- Plot confidence bands in `plot_surv_roc_trend`.
+
 ## Changes in 0.0.29
 
 - Fix upper creatinine bound in `meld3`.

R/plot.R

@@ -229,8 +229,31 @@ plot_surv_roc_trend <- function(x,
 
     for (i in seq(along = x)) {
         lines(x[[i]]$times, x[[i]]$AUC, lwd = 2, col = col[i])
+        if (!is.null(x[[i]]$confint)) {
+            lines(
+                x[[i]]$times, x[[i]]$confint$CB_AUC[, 1L] / 100,
+                lwd = 2, lty = 2, col = col[i]
+            )
+            lines(
+                x[[i]]$times, x[[i]]$confint$CB_AUC[, 2L] / 100,
+                lwd = 2, lty = 2, col = col[i]
+            )
+        }
     }
-    legend("bottomright", legend = names(x), col = col, lty = lty, bty = "n")
+
+    if (!is.null(x[[1L]]$confint))
+        legend(
+            "bottomright",
+            legend = c(
+                names(x),
+                paste(names(x[[1L]]$confint$C.alpha), "confidence bands")
+            ),
+            col = c(col, "#808080"), lty = c(lty, 2), bty = "n"
+        )
+    else
+        legend(
+            "bottomright", legend = names(x), col = col, lty = lty, bty = "n"
+        )
 }
 
 #' Plot a table