# Get bamFile
## Not run: bamFileName <- system.file("extdata/align1_rep1.bam", package="metagene")
# Get features
## Not run: bedFileName <- system.file("extdata/list1.bed", package="metagene")
## Not run: features <- read.table(bedFileName, header=FALSE, stringsAsFactors=FALSE, nrow=10)
## Not run: colnames(features) <- c("space", "start_position", "end_position")
## Not run: features$end_position <- features$start_position + 200
## Not run: features$start_position <- features$start_position - 200
# Parse the bam file
## Not run: bamDensity <- metagene:::parseBamFile(bamFileName, features)
Run the code above in your browser using DataLab