#Generate a synthetic coverage map (assuming reads of 40bp and fragments of 130)
map = syntheticNucMap(wp.num=20, fuz.num=20, nuc.len=40, lin.len=130, rnd.seed=1)
cover = filterFFT(coverage(map$syn.reads))
#Find peaks over FFT filtered coverage
calls = peakDetection(filterFFT(cover, pcKeepComp=0.02), width=130, score=TRUE)
#Merge overlapped calls
merged_calls = mergeCalls(calls)
plotPeaks(merged_calls, cover)
Run the code above in your browser using DataLab