Optimize Function In R Examples