## Not run:
# # *** Sinosoid test function ***
# ts <- sin(2*pi*(1:1000)/200)
# t1 <- ts + rnorm(1000)/10
# t3 <- whittaker(t1, lambda = 1000)
# 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