utils: Condense Ewing sarcoma

Condense Ewing Sarcoma with Ewing Sarcoma / PNET due to a inconsistency
in data mining.

utils.R

@@ -81,6 +81,9 @@ sma_load_data <- function(file) {
 	# At this time only solid tumors are important
 	sma <- filter(sma, diagnosis_type == "solid")
 
+	# Condense 'Ewing Sarcom'
+	levels(sma$diagnosis)[match("Ewing sarcoma", levels(sma$diagnosis))] <- "Ewing sarcoma / PNET"
+
 	# After filtering unused levels must be cleared from the data
 	sma <- droplevels(sma)