if(require(EnsDb.Hsapiens.v75)) {
data(SLE_gwas_sub)
loc <- locus(SLE_gwas_sub, gene = 'UBE2L3', flank = 1e5,
ens_db = "EnsDb.Hsapiens.v75")
genetracks(loc)
## Limit the number of tracks
genetracks(loc, maxrows = 4)
## Filter by gene biotype
genetracks(loc, filter_gene_biotype = 'protein_coding')
## Customise colours
genetracks(loc, gene_col = 'grey', exon_col = 'orange',
exon_border = 'darkgrey')
}
Run the code above in your browser using DataLab