From 3e263bb4005b85b91f53bd53df4acc4bb211901c Mon Sep 17 00:00:00 2001 From: Jens Sauer Date: Sun, 17 Jan 2021 11:33:41 +0100 Subject: [PATCH] utils: Condense Ewing sarcoma Condense Ewing Sarcoma with Ewing Sarcoma / PNET due to a inconsistency in data mining. --- utils.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/utils.R b/utils.R index 38582a3..a5a54cd 100644 --- a/utils.R +++ b/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)