Cofnod E-bost: A simple algorithm to estimate genetic variance in an animal threshold model using Bayesian inference