require(TxDb.Mmusculus.UCSC.mm9.knownGene)
txdb <- TxDb.Mmusculus.UCSC.mm9.knownGene
# loading H3K4me1 peaks as a GRanges object
# built based on the BED file from the GEO GSM1234488 sample
# limited to chr19:3200000-4000000
H3K4me1GR <- system.file("extdata", "H3K4me1GR.Rda", package="compEpiTools")
load(H3K4me1GR)
enhancers(H3K4me1GR, txdb)
Run the code above in your browser using DataLab