Ideas for Optimization

Look further into zoo's rollapply() function to speed up calculation
time for rolling beta calculation