add standarization

Author: mhurtado13

R/methyl_deconvolution.R

@@ -613,6 +613,10 @@ compute_CpG_signature_extension <- function(rna_signature,
                                             cpg_region = c("both", "promoter", "distal"),
                                             cell_expression_data = NULL) {
 
+  ## Standarize cell types names from both signatures
+  rna_signature = multideconv::standardize_celltype_colnames(rna_signature)
+  cpg_signature = multideconv::standardize_celltype_colnames(cpg_signature)
+
   ## Map CpGs to genes using PCHi-C network and filter genes based on promoter/distal location
   genes_selected <- compute_cpg_chromatin_mapping(cpg_signature, cpg_region)