## Loading datasets
data(A549_CTCF_MYJ_NarrowPeaks_partial)
data(A549_CTCF_MYJ_Peaks_partial)
data(A549_CTCF_MYN_NarrowPeaks_partial)
data(A549_CTCF_MYN_Peaks_partial)
## Assigning experiment name to each row of the dataset.
## NarrowPeak and Peak datasets from the same experiment must
## have identical names.
names(A549_CTCF_MYJ_Peaks_partial) <- rep("CTCF_MYJ",
length(A549_CTCF_MYJ_Peaks_partial))
names(A549_CTCF_MYJ_NarrowPeaks_partial) <- rep("CTCF_MYJ",
length(A549_CTCF_MYJ_NarrowPeaks_partial))
names(A549_CTCF_MYN_Peaks_partial) <-rep("CTCF_MYN",
length(A549_CTCF_MYN_Peaks_partial))
names(A549_CTCF_MYN_NarrowPeaks_partial) <- rep("CTCF_MYN",
length(A549_CTCF_MYN_NarrowPeaks_partial))
## Calculating consensus regions for chromosome 10
## with a default region size of 40 bp (2 * extendingSize)
## which is extended to include all genomic regions for the closest
## peak to the median position of all peaks included in the region (for each
## experiment).
## A peak from both experiments must be present in a region to
## be retained as a consensus region.
chrList <- Seqinfo(c("chr10"), c(135534747), NA)
findConsensusPeakRegions(
narrowPeaks = c(A549_CTCF_MYJ_NarrowPeaks_partial,
A549_CTCF_MYN_NarrowPeaks_partial),
peaks = c(A549_CTCF_MYJ_Peaks_partial,
A549_CTCF_MYN_Peaks_partial),
chrInfo = chrList,
extendingSize = 20,
expandToFitPeakRegion = FALSE,
shrinkToFitPeakRegion = FALSE,
minNbrExp = 2,
nbrThreads = 1)
Run the code above in your browser using DataLab