## Not run:
# library(Rsamtools)
# data(genesymbol)
# library(BSgenome.Hsapiens.UCSC.hg19)
# bamfile <- system.file("extdata", "SRR027894subRBM17.bam", package="biovizBase")
# test <- pileupAsGRanges(bamfile, region = genesymbol["RBM17"])
# test.match <- pileupGRangesAsVariantTable(test, Hsapiens)
# head(test[,-7])
# head(test.match[,-5])
# ## End(Not run)
Run the code above in your browser using DataLab