pfx <- file.path(system.file("extdata", package="plinkFile"), "000")
ret <- scanBED(pfx, function(g)
{
af <- mean(g, na.rm=TRUE) / 2
maf <- min(af, 1 - af)
c(idx=.i, mu=mean(g, na.rm=TRUE), maf=maf, nas=sum(is.na(g)))
})
print(ret[1:5, ])
Run the code above in your browser using DataLab