Create Optimizing Effective Bets.R

Code to optimize the effective number of bets in a portfolio