From c68e53686123b1974128d6144f969275cebb4bc5 Mon Sep 17 00:00:00 2001
From: Jens Sauer <jsauer65@gmail.com>
Date: Tue, 17 Nov 2020 15:05:31 +0100
Subject: [PATCH] utils: Filter patient by age

The minimum age for this study is 16.0 years or older at time of
transplantation.
---
 utils.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/utils.R b/utils.R
index 9a6d88a..188a775 100644
--- a/utils.R
+++ b/utils.R
@@ -71,6 +71,11 @@ sma_load_data <- function(file) {
 	sma$thalidomid <- as.logical(sma$thalidomid)
 	sma$bortezomib <- as.logical(sma$bortezomib)
 
+	#
+	# Limit to patients which are at least 16.0 years old at time
+	# of transplantation.
+	sma <- filter(sma, asct_age >= 16.0)
+
 	return(sma)
 }