# NOT RUN {
bdvcf1afile <- system.file("extdata", "vcf1a.bdose", package = "BinaryDosage")
bdvcf1bfile <- system.file("extdata", "vcf1b.bdose", package = "BinaryDosage")
mergefiles <- tempfile()
BinaryDosage:::bdmerge(mergefiles = mergefiles,
bdfiles = c(bdvcf1afile, bdvcf1bfile),
bdoptions = "maf")
bdinfo <- getbdinfo(mergefiles)
# }
Run the code above in your browser using DataLab