survival: Use new data load function

Load the data with the new introduced function sma_load_data().
2020-11-16 12:27:35 +01:00 · 2020-11-16 12:27:35 +01:00 · 27579452c3
commit 27579452c3
parent f919a31527
1 changed files with 1 additions and 1 deletions
--- a/survival.R
+++ b/survival.R
@ -6,7 +6,7 @@
 library(survival)
 source("utils.R")

-secmal <- read.csv2("current.csv", header=TRUE)
+secmal <- sma_load_data("current.csv")

 # Setup survival object
 surv_dx <- Surv(time = secmal$event_time_dx, event = secmal$event_status)