# get library
library(bPeaks)
# get data
data(dataPDR1)
summary(dataPDR1)
# Length Class Mode
#IPdata 3 data.frame list
#controlData 3 data.frame list
#chromosomalFeatures 26412 -none- character
# run peak calling, comparing IP and control samples
# (only 10 kb of chrIV are analyzed here, as an illustration)
bPeaksAnalysis(IPdata = dataPDR1$IPdata[40000:50000,],
controlData = dataPDR1$controlData[40000:50000,],
windowSize = 150, windowOverlap = 50,
IPcoeff = 4, controlCoeff = 2, log2FC = 1,
averageQuantiles = 0.5,
resultName = "bPeaks_example",
peakDrawing = TRUE, promSize = 800)
# -> bPeaks analysis with (all chromosome and default parameters optimized for yeasts)
# STEP 1: get PDR1 data (ChIP-seq experiments - IP and control samples -
# with transcription factor Pdr1 in yeast Saccharomyces cerevisiae)
data(dataPDR1)
# STEP 2: bPeaks analysis
bPeaksAnalysis(IPdata = dataPDR1$IPdata,
controlData = dataPDR1$controlData,
windowSize = 150, windowOverlap = 50,
IPcoeff = 6, controlCoeff = 4,
log2FC = 2, averageQuantiles = 0.9,
resultName = "bPeaks_PDR1",
peakDrawing = TRUE)
# STEP 3 : procedure to locate peaks according to
# predefined chromosomal features
resLocation = peakLocation(bedFile = "bPeaks_PDR1_bPeaks_allGenome.bed",
genomicInfo = dataPDR1$chromosomalFeatures,
outputName = "bPeakLocation_finalPDR1", promSize = 800)
# number of detected peaks
print(resLocation$numPeaks)
# number of peaks "before" annotated genes
print(resLocation$beforeFeatures)
# number of peaks "in" annotated genes
print(resLocation$inFeatures)
# number of peaks "after" annotated genes
print(resLocation$afterFeatures)
Run the code above in your browser using DataLab