r2_hf function

Expected r2 between standardized multilocus heterozygosity (h) and inbreeding level (f)