refactor createTumorTypeSummary.R