attempting to get selection working for binomial data. Have alterede poverty.r and simulations-functions.r for testing with binomial data