library(rbamtools)
bam_file <- system.file("extdata", "accepted_hits.bam", package="rbamtools")
reader<-bamReader(bam_file)
isOpen(reader)
align<-getNextAlign(reader)
i<-flag(align)
flag(align)<-i
paired(align)
paired(align)<-FALSE
properPair(align)
properPair(align)<-FALSE
unmapped(align)
unmapped(align)<-FALSE
mateUnmapped(align)
mateUnmapped(align)<-FALSE
reverseStrand(align)
reverseStrand(align)<-FALSE
mateReverseStrand(align)
mateReverseStrand(align)<-FALSE
firstInPair(align)
firstInPair(align)<-FALSE
secondInPair(align)
secondInPair(align)<-FALSE
secondaryAlign(align)
secondaryAlign(align)<-FALSE
failedQC(align)
failedQC(align)<-FALSE
pcrORopt_duplicate(align)
pcrORopt_duplicate(align)<-FALSE
bamClose(reader)
Run the code above in your browser using DataLab