data(meso)
data(p53_pathways)
set.seed(0)
results <- dnapath(x = meso$gene_expression, pathway_list = p53_pathways,
group_labels = meso$groups, n_perm = 10)
summary(results[[1]]) # Summary of pathway 1; note that it uses entrezgene IDs.
# \donttest{
# Rename the entrezgene IDs into gene symbols.
results_sym <- rename_genes(results, to = "symbol", species = "human")
summary(results_sym[[1]]) # Now the summary uses gene symbols.
# }
Run the code above in your browser using DataLab