A function for sinc-interpolation
Performs sinc interpolation for a equidistant time series x
to times t
.
sincfilter(t, x, wr=8)
t
: vector of new time pointsx
: observed time series at times 1:length(x)
.wr
: determines truncation of series expansiona vector of interpolated values of the time series at time points given in t
.
Joerg Polzehl polzehl@wias-berlin.de
slicetiming
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)