# NOT RUN {
fileName = system.file("vcf/all.anno.filtered.extract.vcf.gz", package = "seqminer")
cfh <- readVCFToListByRange(fileName, "1:196621007-196716634", "Nonsynonymous",
c("CHROM", "POS"), c("AF", "AC"), c("GT") )
# }
Run the code above in your browser using DataLab