From 27579452c3c96cf05a68df0df929764d1361e34c Mon Sep 17 00:00:00 2001
From: Jens Sauer <jsauer65@gmail.com>
Date: Mon, 16 Nov 2020 12:27:35 +0100
Subject: [PATCH] survival: Use new data load function

Load the data with the new introduced function sma_load_data().
---
 survival.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/survival.R b/survival.R
index e55a243..5bc657f 100644
--- 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)