diff --git a/secmal.R b/secmal.R index 69ecc22..1b021c7 100644 --- a/secmal.R +++ b/secmal.R @@ -7,7 +7,7 @@ source("utils.R") sma_init() # Setup survival object -surv_sec <- Surv(time = secmal$time_at_risk, event = secmal$time_at_risk_status) +surv_sec <- Surv(time = secmal$time_at_risk, event = ifelse(secmal$time_at_risk_status == 1, 1, 0)) # plot cummulative events sma_plot_secmal_event <- function() {