我写了个局部线性回归的程序，可是不知道如何得到导函数，请行家不吝赐教。

fei<-read.csv("D:\\ \\ \\ \\s.csv")

plot(fei,pch=19)

model1=loess(interest~ time,data=fei,span=0.8)

lines(fei$time,model1$fit,col='blue',lty=2,lwd=2)