This function returns a dictionary for translating numerical scores to nominal scores for default biomarkers.
Examples
options(width = 10000) # for printing
library(TMAtools)
biomarkers <- c("ER", "TP53", "CTNNB1", "WT1")
for (biomarker in biomarkers) {
print(c(biomarker, get_default_dict(biomarker)))
}
#> 0 1 2 9 x
#> "ER" "negative" "focal (1-50%)" "diffuse (>50%)" "Unk" "Unk"
#> 0 1 2 3 4 5 8 9 x
#> "TP53" "complete absence" "wild type" "overexpression" "cytoplasmic" "abnormal" "subclonal" "Unk" "Unk" "Unk"
#> 0 1 2 3 9 x
#> "CTNNB1" "negative" "membranous" "cytoplasmic" "nuclear" "Unk" "Unk"
#> 0 1 2 9 x
#> "WT1" "negative" "focal (1-50%)" "diffuse (>50%)" "Unk" "Unk"