## Preprocess the data
prep <- preprocessCoverage(genomeData, cutoff=0, scalefac=32, chunksize=1e3,
colsubset=NULL)
## Get the F statistics
fstats <- genomeFstats
## Find the regions
regs <- findRegions(prep$position, fstats, 'chr21', verbose=TRUE)
regs
## Once you have the regions you can proceed to annotate them
library('bumphunter')
genes <- annotateTranscripts(TxDb.Hsapiens.UCSC.hg19.knownGene::TxDb.Hsapiens.UCSC.hg19.knownGene)
annotation <- matchGenes(regs, genes)
annotation
# Find regions with smoothing the F-statistics by bumphunter::runmedByCluster
regs_smooth <- findRegions(prep$position, fstats, 'chr21', verbose = TRUE,
smoothFunction = bumphunter::runmedByCluster)
## Compare against the object regs obtained earlier
regs_smooth
Run the code above in your browser using DataLab