utils: Filter patient by age

The minimum age for this study is 16.0 years or older at time of transplantation.
2020-11-17 15:05:31 +01:00 · 2020-11-17 15:05:31 +01:00 · c68e536861
commit c68e536861
parent 3c160c37bb
1 changed files with 5 additions and 0 deletions
--- 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)
 }