## Not run: ------------------------------------
# #Test the kernel regression smoother
# a <- test.smoother(n=5,m=10,incr=0.5,max=50,smoother = kernel,bandwidth=1)
# #Plot the result
# plot(a,type='l')
## ---------------------------------------------
Run the code above in your browser using DataLab