Optimize Function In R