added gradient descent example in R