setMarkerHaplo function

Set marker haplotypes