```
x <- c( 0, 2, 3, 5, 6, 8, 9, 11, 12, 14, 15)
y <- c(10, 10, 10, 10, 10, 10, 10.5, 15, 50, 60, 85)
xs <- seq(12, 14, 0.5) # 12.0 12.5 13.0 13.5 14.0
ys <- akimaInterp(x, y, xs) # 50.0 54.57405 54.84360 55.19135 60.0
xs; ys
## Not run:
# plot(x, y, col="blue", main = "Akima Interpolation")
# xi <- linspace(0,15,51)
# yi <- akimaInterp(x, y, xi)
# lines(xi, yi, col = "darkred")
# grid()## End(Not run)
```

Run the code above in your browser using DataLab