sample_genotype function

Sample a genotype according to allele frequencies