Add argument to pass function to define emission probabilities for haploid case

Add argument to pass function to define emission probabilities for haploid case #358