若干点连接成平滑曲线

最近做折线图，想把几个点平滑处理，以前做过，但是不记得怎么搞了，在网上查一下，发现有人已经给出来代码了，具体如下:

a<-c(35293 ,  61916  , 36557 ,  26076  , 20800  , 52524  , 83579   ,156257,  478688  ,2218997)
b<-c(1:10)
plot(a,b)
sp<-spline(a,b,n=50)
lines(sp)

如果已知做出这些点的函数可以使用 curve(expr, from , to, add = T) 函数。反之，使用立方曲线差

ref:http://www.biostatistic.net/thread-3280-1-1.html