Update haplotypes.R