# NOT RUN {
# Get information about a gen, impute2, file
gen1afile <- system.file("extdata", "set1a.imp", package = "BinaryDosage")
geninfo <- getgeninfo(genfiles = gen1afile,
snpcolumns = c(1L, 3L, 2L, 4L, 5L),
header = TRUE)
aaf <- genapply(geninfo = geninfo,
func = BinaryDosage:::getaaf)
# }
Run the code above in your browser using DataLab