if (FALSE) {
x <- seq(0, 2 * pi, pi / 100) ; y <- sin(x)
dy.dx(x, y, eval.point = 1.75)
# First derivative
dy.dx(x, y, eval.point = 1.75)[ , first.derivative]
# Second derivative
dy.dx(x, y, eval.point = 1.75)[ , second.derivative]
# Vector of derivatives
dy.dx(x, y, eval.point = c(1.75, 2.5))
}
Run the code above in your browser using DataLab