powered by
naSpline(mat,maxgap=1)
x<-rnorm(100) x[20]<-30 naData<-badData(x) fixed<-naSpline(naData) par(mfrow=c(2,1)) ts.plot(x) ts.plot(fixed)
Run the code above in your browser using DataLab