# \donttest{
# Mock GO enrichment results for two feature selection methods
fs_GO_results <- list(
method1 = list(result = data.frame(GO_ID = c("GO:0008150", "GO:0009987"),
Description = c("Biological Process 1", "Biological Process 2"),
'p.adjust' = c(0.01, 0.02))),
method2 = list(result = data.frame(GO_ID = c("GO:0008150", "GO:0008152"),
Description = c("Biological Process 1", "Biological Process 3"),
'p.adjust' = c(0.03, 0.04)))
)
# Run the wrapper function with mock data
enrichment_result <- run_simplify_enrichment(fs_GO_results,
padj_column = 'p.adjust',
padj_cutoff = 0.05,
ont = "BP",
measure = "Wang",
method = "kmeans")
print(enrichment_result)
# }
Run the code above in your browser using DataLab