QGpsi function

Compute "Psi" (used to compute the additive genetic variance on the observed scale).