if (FALSE) {
# Load example data
data(ko_abundance)
data(metadata)
# Prepare abundance data
abundance_data <- as.data.frame(ko_abundance)
rownames(abundance_data) <- abundance_data[, "#NAME"]
abundance_data <- abundance_data[, -1]
# Run GSEA analysis
gsea_results <- pathway_gsea(
abundance = abundance_data,
metadata = metadata,
group = "Environment",
pathway_type = "KEGG",
method = "fgsea"
)
# Run DAA analysis
daa_results <- pathway_daa(
abundance = abundance_data,
metadata = metadata,
group = "Environment"
)
# Compare results
comparison <- compare_gsea_daa(
gsea_results = gsea_results,
daa_results = daa_results,
plot_type = "venn"
)
}
Run the code above in your browser using DataLab