# NOT RUN {
## Find top enriched GO terms in the developmental stages of D. melanogaster
## To run this example, please download the file "gene_association_fb_example.txt" from
## https://ucla.box.com/GO-mapping-file.
## Please move "gene_association_fb_example.txt" to R's working directory.
## dm_gene_expr.rda can be downloaded and unzipped from
## http://www.stat.ucla.edu/~jingyi.li/packages/TROM/TROM_Rdata.zip.
# }
# NOT RUN {
load("dm_gene_expr.rda")
dm_genes_all <- as.character(dm_gene_expr[,1])
data(GO_slim_id)
gene_lists <- system.file("dm_associated_genes.xlsx", package = "TROM")
dm_stage_GO_slim <- find.top.GO.slim.terms(
gene_lists = gene_lists,
all_genes = dm_genes_all,
GOmappingfile = "gene_association_fb_example.txt",
output_file = "top 20 enriched GO slim terms in fly stage-associated genes.txt",
GO_slim_id = GO_slim_id,
topNum = 20,
heatmap = FALSE)
# }
Run the code above in your browser using DataLab