Learn R Programming

rbamtools (version 2.16.17)

bamRange: bamRange(object, coordinates, complex=FALSE): Function for reading of alignments in genomic regions.

Description

The bamRange function takes a bamReader object, a set of reference coordinates and the 'complex' argument and returns an instance of class 'bamRange'.

Usage

bamRange(object=NULL, coords=NULL, complex=FALSE)

Arguments

object

An instance of bamReader. Must be opened and contain initialized index

coords

Integer vector of length 3: coords=c(refid, start, stop)

complex

A logical value (of length 1). Default value: FALSE

Value

An instance of class bamRange which can be accessed sequentially, modified or written to a BAM-file.

Details

The method returns a list of bamAlign's from which overlap with the specified region. When complex is TRUE, the function only retrieves Aligns where nCigar > 1 ('complex' aligns, e.g. 45M329N56M). When reader is NULL, an empty range-list ist constructed (can be filled with push_back). When complex is FALSE, the function retrieves all alignments which fall into the given range.

Examples

Run this code
# NOT RUN {
bam <- system.file("extdata", "accepted_hits.bam", package="rbamtools")
idx<-paste(bam,"bai",sep=".")

# Open BAM file
reader<-bamReader(bam)

#  Create empty range and fill with push_back
range<-bamRange()
for(i in 1:10)
{
  align<-getNextAlign(reader)
  push_back(range,align)
}
size(range)

# Eventually:
# }
# NOT RUN {
createIndex(reader,idx)
# }
# NOT RUN {
# Load BAM index file
loadIndex(reader,idx)
indexInitialized(reader)   # Should return 'TRUE'
#----------------------------------------------#
#  Find appropriate refid (=ID)
#  Returns a data.frame with three columns:
#  ID=refid, SN=Sequence Name, LN=Sequence length
#----------------------------------------------#
rdf<-getRefData(reader)
head(rdf)

#----------------------------------------------#
# The sequence length (LN) also determines valid
# range for start and stop coordinates
# Invalid refid-, start- or stop-coordinates will
# release an error.
# coords: refid=0, start=0, stop=249250621
#----------------------------------------------#

coords<-as.integer(c(0,0,249250621))
range<-bamRange(reader,coords)
size(range)
align<-getNextAlign(range)
cigarData(align)
range<-bamRange(reader,coords,complex=TRUE)
size(range)
align<-getNextAlign(range)
cigarData(align)

# }
# NOT RUN {
while(!is.null(align))
{
    print(position(align))
    align<-getNextAlign(range)
}
# }
# NOT RUN {
bamClose(reader)
# }

Run the code above in your browser using DataLab