# open an example dataset (HapMap)
genofile <- snpgdsOpen(snpgdsExampleFileName())
RV <- snpgdsSNPRateFreq(genofile)
hist(RV$AlleleFreq, breaks=128)
summary(RV$MissingRate)
# close the file
snpgdsClose(genofile)
Run the code above in your browser using DataLab