savgol(T, fl, forder = 4, dorder = 0)
sav_gol
in package `RTisean' or sgolayfilt
in package `signal'.# *** Sinosoid test function ***
ts <- sin(2*pi*(1:1000)/200)
t1 <- ts + rnorm(1000)/10
t2 <- savgol(t1, 51)
plot(1:1000, t1)
lines(1:1000, ts, col="blue")
lines(1:1000, t2, col="red")
Run the code above in your browser using DataLab