R语言如何获得连接若干点的平滑曲线

tomorrow

如何获得连接若干点的平滑曲线？
如果已知做出这些点的函数可以使用 curve(expr, from , to, add = T) 函数。反之，使用立方曲线差
值函数 spline(x , y , n= ) ，如：
x <- 1:5
y <- c(1 ,3 ,4 , 2.5 ,2)
plot(x, y)
sp <- spline (x, y, n = 50)
lines (sp)