# **Sinosoid test function**
ts <- sin(2*pi*(1:1000)/200)
t1 <- ts + rnorm(1000)/10
t3 <- whittaker(t1, lambda = 1600)
## Not run:
# plot(1:1000, t1, col = "grey")
# lines(1:1000, ts, col="blue")
# lines(1:1000, t3, col="red")## End(Not run)
Run the code above in your browser using DataLab