#Question and material courtesy of Graham Coop (UC Davis)
#Made by using plink on the genotype file:PLINK
#plink --bfile CEU_YRI_r21_nr_all --hardy &
#mv plink.hwe CEU_YRI.hw
#gzip all_CEU_YRI.hw
# Make sure all of the data files ending in .gz are in the same folder as you open up R in (or changing your working directory to point there.)
## Paste the whole function below
plot.geno.vs.HW