Data 605 - Week 14 Discussion

Problem 8.8.3

library(pracma)


equation <- function(x){exp(x)}
c=0
n=8

taylor(equation, c, n)

## [1] 2.505533e-05 1.961045e-04 1.386346e-03 8.334245e-03 4.166657e-02
## [6] 1.666667e-01 5.000000e-01 1.000000e+00 1.000000e+00