# NOT RUN {
# Get the information about the file
vcf1abdfile <- system.file("extdata", "vcf1a.bdose", package = "BinaryDosage")
bdinfo <- getbdinfo(bdfiles = vcf1abdfile)
# Read the first SNP
getsnp(bdinfo, 1, FALSE)
# }
Run the code above in your browser using DataLab