Are there any packages which implement a variable width kernel density estimator in R? Looking to vary the bandwidth with the magnitude of x.