calc.exp.het function

This calculates expected heterozygosities.