# get library
library(bPeaks)
# STEP 1: get PDR1 data
data(dataPDR1)
# STEP 2 : bPeaks analysis (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)
# STEP 2 : bPeaks analysis (all chromosome)
bPeaksAnalysis(IPdata = dataPDR1$IPdata, controlData = dataPDR1$controlData,
chromosomalFeatures = dataPDR1$chromosomalFeatures,
smoothingValue = c(20),
windowSize = c(150), windowOverlap = 50,
IPcoeff = c(6), controlCoeff = c(4), log2FC = c(2),
averageQuantiles = c(0.9),
resultName = "bPeaks_PDR1_chr4",
peakDrawing = TRUE, promSize = 800)
# To repeat the bPeaks analysis with different parameters
bPeaksAnalysis(IPdata = dataPDR1$IPdata, controlData = dataPDR1$controlData,
chromosomalFeatures = dataPDR1$chromosomalFeatures,
smoothingValue = c(10, 20),
windowSize = c(100, 150, 200), windowOverlap = 50,
IPcoeff = c(4, 6), controlCoeff = c(2, 4), log2FC = c(2, 4),
averageQuantiles = c(0.7, 0.9),
resultName = "bPeaks_PDR1_chr4_paremeterEval",
peakDrawing = TRUE, promSize = 800)
Run the code above in your browser using DataLab