probleme rownames model.matrix (probablement issue de edgeR et pas de stats

MCQR/R/priv_mcq_compute_contrasts.R

@@ -33,7 +33,7 @@ setMethod("priv.mcq.compute.contrast", signature(object="cmcq.metadata",  Replic
   if(Replicate){
     selected_meta <- object@metadata[,c(flist, replicateName)]
     # renaming column to be compatible with dicoexpress code
-    colnames(selected_meta)[colnames(selected_meta) == replicateName] <- "__Replicate"
+    colnames(selected_meta)[colnames(selected_meta) == replicateName] <- "Replicate"
   }else{
     selected_meta <- object@metadata[,c(flist)]
   }
@@ -391,6 +391,15 @@ setMethod("priv.mcq.compute.contrast", signature(object="cmcq.metadata",  Replic
   }
   return(list("error"=error_list, "warning"=warning_list))
 }
+
+## function to get model matrix as df for exporting
+
+
+priv.get.model.matrix <- function(object){
+  df.model.matrix <- as.data.frame(contrast@Model)
+  return(df.model.matrix)
+}
+
   
 #   
 #