Update Optimizing Effective Bets.R