keepEPloops: Keep enhancer-promoter loops

In diffloop: Identifying differential DNA loops from chromatin topology data

Description

keepEPloops adds a column to the rowData slot of a loops object that shows the corresponding TSS of a gene name based on the promoter GRanges. The loops object is then subsetted and returns only loops that are enhancer-promoter.

Usage

keepEPloops(lto, enhancer, promoter)

## S4 method for signature 'loops,GRanges,GRanges'
keepEPloops(lto, enhancer, promoter)

Arguments

lto	A loops object whose loops will be annotated
enhancer	GRanges object corresponding to locations of enhancer peaks
promoter	GRanges object corresponding to locations of promoter regions

Details

This function works similar to the annotateLoops function but returns only enhancer-promoter loops that are defined in this function. Additionally, this function returns the gene name(s) of the nearby transcription start sites in a comma-separted list if there are multiple. These gene names are defined by the promoter GRanges mcol slot.

Value

A loops object with an additional row 'loop.type' in the rowData slot in addition to the gene.tss (which has the gene name) and the anchor.tss which shows the anchor(s) near the promoter region for the gene.

Examples

rda<-paste(system.file('rda',package='diffloop'),'loops.small.rda',sep='/')
load(rda)
h3k27ac_j <- system.file('extdata','Jurkat_H3K27ac_chr1.narrowPeak',package='diffloop')
h3k27ac <- rmchr(padGRanges(bedToGRanges(h3k27ac_j), pad = 1000))
promoter <- padGRanges(getHumanTSS(c('1')), pad = 1000)
# small.ep <- keepEPloops(loops.small, h3k27ac, promoter)

diffloop documentation built on Nov. 8, 2020, 5:48 p.m.