## 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 <- kernel(b,2)
## ---------------------------------------------
##simply test the smoother
mav(1:10,5,'exponential')
Run the code above in your browser using DataLab