###find experiments where the description contains a given search term
#experimentlist <- getExperimentsByDescription("breast carcinoma")
###get gene list for given experiment ID
#genelist <- getGenesForExperimentID("E-MEXP-3739")
###get list of pathways associated with a gene for which the genes are differentially expressed for a given condition (Type I diabetes in this case)
pathwayinfo <- getPathwaysFromGenesAndCondition("efo:EFO_0001359")
pathwayinfo$pathwayname
###perform gene set enrichment using Atlas as background to find factors genes are enriched for
#load the background files for the species of interest (requires downloading)
#find background sets at https://github.com/jamesmalone/AtlasRDF-R
#load("human_gene_list.RData") #human_genelist_bg
#load("human_factor_counts.RData") #human_factor_counts
###creat or load your genelist of interest
genelist <- c("GSTT1", "PLCE1", "XIST", "ENOSF-1", "AHR", "FSTL1", "YIPF5", "RBM5", "TNP01", "CREB1", "NOX4", "FLII")
###get id for species 'human'
taxon <-getTaxonURI("human") #obo:NCBITaxon_9606
###do enrichment
#results <- doFishersEnrichmentForGeneNames(genelist, taxon, human_genelist_bg, human_factor_counts)
###visualize results, filtering by p-value
#vizPvalues(results, "0.005")
Run the code above in your browser using DataLab