Create haplotypes.R