# NOT RUN {
# Get information about a vcf file
vcf1afile <- system.file("extdata", "set1a.vcf", package = "BinaryDosage")
vcfinfo <- getvcfinfo(vcffiles = vcf1afile)
# Apply the getaaf, get alternate allele frequency, function
# to all the SNPs in the vcf file
aaf <- vcfapply(vcfinfo = vcfinfo,
func = BinaryDosage:::getaaf)
# }
Run the code above in your browser using DataLab