## Not run: ------------------------------------
# #Generate a HS patterns
# a <- generator()
# #now add white noise with a standdard deviation of 10
# b <- noise(a,'white',10)
# plot(b)
## ---------------------------------------------
Run the code above in your browser using DataLab