savgolay(input=c(1,6,2,46,23,1,2,13,23,35,23,-2,3,23))
## Not run: ------------------------------------
# #create a standard HS pattern:
# a <- generator()
# #add noise to this patterns
# b <- noise(a,'white',10)
# #smooth to regain the signal
# c <- savgolay(b,8,2)
## ---------------------------------------------
Run the code above in your browser using DataLab