In addition to nico's answer: I would suggest installing gam (which uses floating point fines). However, extrapolation is not recommended unless you have a science-based model.
x <- c(24,36,48,60,84,120,180) y <- c(3.94,4.03,4.29,4.30,4.63,4.86,5.02) lo <- loess(y~x, control=loess.control(surface = "direct")) plot(x.all <- seq(3,200,3), predict(object = lo,newdata = x.all), type="l", col="blue") points(x, y) library(mgcv) fit <- gam(y ~ s(x, bs="cr", k=7, fx =FALSE), data = data.frame(x, y)) summary(fit) lines(x.all, predict(fit, newdata = data.frame(x = x.all)), col="green")

source share