utils: Filter all hematologic patients

At this time only solid tumors are important. This is a hard coded
switch, not very useful. But it get the job done and we can decide later
how this can be made better.

utils.R

@@ -76,6 +76,9 @@ sma_load_data <- function(file) {
 	# 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)
 }