Merge branch 'limit-data'

* limit-data:
  utils: Filter all hematologic patients
  utils: Filter patient by age

utils.R

@@ -71,6 +71,14 @@ 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)
+
+	# At this time only solid tumors are important
+	sma <- filter(sma, diagnosis_type == "solid")
+
 	return(sma)
 }