# Appeler la fonction ImmuCellAI_new
result <- ImmuCellAI_new(
  countData = expr_data_log2,
  data_type = "microarray",  # ou "rnaseq" selon vos données
  group_tag = 1,  # ou 0 selon votre besoin
  response_tag = 1,  # ou 0 selon votre besoin
  customer = 0  # ou 1 si vous fournissez un fichier de référence personnalisé
)
Error in `rownames<-`(`*tmp*`, value = colnames(countData)) : 
  attempt to set 'rownames' on an object with no dimensions
Called from: `rownames<-`(`*tmp*`, value = colnames(countData))

The countdata is normalized by DESeq2