A SIMPLE ALGORITHM TO ESTIMATE GENETIC VARIANCE IN AN ANIMAL THRESHOLD MODEL USING BAYESIAN INFERENCE