fixed bug with fgsea

ELTEbioinformatics · Nov 22, 2024 · 7e3f8d9 · 7e3f8d9
1 parent 7ef1420
commit 7e3f8d9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/.SubramanianTest.R.un~ b/R/.SubramanianTest.R.un~
diff --git a/R/SubramanianTest.R b/R/SubramanianTest.R
@@ -41,7 +41,8 @@ setMethod("initialize", "SubramanianTest",
             .Object@gsea_power <- gsea_power
             .Object@element_score_type <- element_score_type
             .Object@test <- function(model) {
-                listmodelDfFromFile <- model@gmt$list_of_values
+                listmodelDfFromFile <- lapply(model@gmt$list_of_values, 
+                                              strsplit, split=" ", fixed=T)
                 names(listmodelDfFromFile) <- model@gmt$ontology_id
                 samplesToAnalisys <- model@element_scores
                 names(samplesToAnalisys) <- model@element_names