Gravar-mail: A simple algorithm to estimate genetic variance in an animal threshold model using Bayesian inference