From 471ed09dca22fe799c71be35e702a07acc938c96 Mon Sep 17 00:00:00 2001
From: Jens Sauer <jsauer65@gmail.com>
Date: Sun, 17 Jan 2021 17:39:34 +0100
Subject: [PATCH] secmal: Adjust calculation for SM incidence

Change calculation to cause-specific aproach.
---
 secmal.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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() {