diff --git a/secmal.R b/secmal.R
index 389693c..6d2b845 100644
--- a/secmal.R
+++ b/secmal.R
@@ -79,7 +79,7 @@ sma_plot_secmal_haz_dx <- function() {
 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),
+			legend = "none", title = "", ylim = c(0,0.5),
 			xlab = "Years", ggtheme = theme_bw(), palette = "lancet")
 }