```
## Not run:
# f <- sin
# xs <- seq(-pi, pi, length.out = 100)
# ys <- f(xs)
# y1 <- fderiv(f, xs, n = 1, method = "backward")
# y2 <- fderiv(f, xs, n = 2, method = "backward")
# y3 <- fderiv(f, xs, n = 3, method = "backward")
# y4 <- fderiv(f, xs, n = 4, method = "backward")
# plot(xs, ys, type = "l", col = "gray", lwd = 2,
# xlab = "", ylab = "", main = "Sinus and its Derivatives")
# lines(xs, y1, col=1, lty=2)
# lines(xs, y2, col=2, lty=3)
# lines(xs, y3, col=3, lty=4)
# lines(xs, y4, col=4, lty=5)
# grid()## End(Not run)
```

Run the code above in your browser using DataLab