```
## Rational interpolation of Runge's function
x <- c(-1, -0.5, 0, 0.5, 1.0)
y <- runge(x)
xs <- linspace(-1, 1)
ys <- runge(xs)
yy <- ratinterp(x, y, xs) # returns exactly the Runge function
## Not run:
# plot(xs, ys, type="l", col="blue", lty = 2, lwd = 3)
# points(x, y)
# yy <- ratinterp(x, y, xs)
# lines(xs, yy, col="red")
# grid()## End(Not run)
```

Run the code above in your browser using DataLab