datadir <- system.file('extdata', 'genomeData', package='derfinder')
files <- rawFiles(datadir = datadir, samplepatt = '*accepted_hits.bam$',
fileterm = NULL)
## Shorten the column names
names(files) <- gsub('_accepted_hits.bam', '', names(files))
## Read and filter the data, only for 2 files
dataSmall <- loadCoverage(files = files[1:2], chr = '21', cutoff = 0)
## Not run:
# ## Export to BigWig files
# createBw(list('chr21' = dataSmall))
#
# ## Load data from BigWig files
# dataSmall.bw <- loadCoverage(c(ERR009101 = 'ERR009101.bw', ERR009102 =
# 'ERR009102.bw'), chr = 'chr21')
#
# ## Compare them
# mapply(function(x, y) { x - y }, dataSmall$coverage, dataSmall.bw$coverage)
#
# ## Note that the only difference is the type of Rle (integer vs numeric) used
# ## to store the data.
#
# ## End(Not run)
Run the code above in your browser using DataLab