powered by
Performs sinc interpolation for a equidistant time series x to times t.
x
t
sincfilter(t, x, wr=8)
vector of new time points
observed time series at times 1:length(x).
1:length(x)
determines truncation of series expansion
a vector of interpolated values of the time series at time points given in t.
slicetiming
# NOT RUN { x <- 1:107 y <- rnorm(x) z <- sincfilter(seq(1,107,.01),y) plot(x, y, ylim=range(y,z)) lines(seq(1,107,.01),z,col=2) # }
Run the code above in your browser using DataLab