diff --git a/secmal.R b/secmal.R index 08f20a9..0b82288 100644 --- a/secmal.R +++ b/secmal.R @@ -80,7 +80,7 @@ sma_plot_secmal_cmprsk <- function() { cpr <- cuminc(secmal$time_at_risk / 365.25, secmal$time_at_risk_status) ggcompetingrisks(cpr[1], conf.int = TRUE, multiple_panels = FALSE, legend = "none", title = "", ylim = c(0:1), - xlab = "Year") + xlab = "Years") } # Calculate cumuative risk with ci from cuminc.