# NOT RUN {
# Get information about a binary dosage file
vcf1abdfile <- system.file("extdata", "vcf1a.bdose", package = "BinaryDosage")
bdinfo <- getbdinfo(bdfiles = vcf1abdfile)
# Apply the getaaf, get alternate allele frequency, function
# to all the SNPs in the binary dosage file
aaf <- bdapply(bdinfo = bdinfo,
func = BinaryDosage:::getaaf)
# }
Run the code above in your browser using DataLab