How would I numerically find the x value where the derivative of the function below is zero? x <- seq(1,2, by = .01) y <- 5*cos(2*x)-2*x*sin(2*x) plot(x,abs(y), type = "l", ylab = "|y|")