## 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 <- loess.rpatrec(b)
## ---------------------------------------------
Run the code above in your browser using DataLab