Both worked, thanks! N. Fernandez > Katharine Mullen: > > require(splines) > x<-1:5 > y <- c(0.31, 0.45, 0.84, 0.43, 0.25) > yy <-predict(interpSpline(x, y)) > plot(x, y) > lines(yy) > > Greg Snow: > lines(spline(x,y, method='n', n=250))