jsauer/secmalasct
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

secmal: Adjust calculation for SM incidence

Browse Source 
Change calculation to cause-specific aproach.
This commit is contained in:
Jens Sauer 2021-01-17 17:39:34 +01:00
parent 388e20673c
commit 471ed09dca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
secmal.R
View File

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