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