# Si nécessaire, installer le package biomaRt:
> library("BiocManager")
> BiocManager::install("biomaRt")
# Chargeons la librairie
> library(biomaRt)
> ensembl<-useMart("ensembl",dataset="hsapiens_gene_ensembl")
> listAttributes(ensembl)
> listFilters(ensembl)
# Collectons les infos dans un objet:
> go.Genes<-getBM(attributes=c('hgnc_symbol', 'entrezgene_id', 'go_id'),
filters = 'go',
values = 'GO:0001726',
mart = ensembl)
# Et voici votre liste de gènes dans cette entrée avec tous les
# sous-GO auxquels ils appartiennent dans les trois classes GO (BP,CC et MF) ;-)
> goGenes
# Et voici la liste des gènes sans autre détail ;-) Oh, surprise, CTTN y est...
> unique(goGenes$hgnc_symbol)