R/dist-empirical.R
wbw.nrd.Rd
Weighted bandwidth selector
wbw.nrd(x, w = NULL)
data
weights
a bandwidth based on weighted data
x = runif(1000) w = rgamma(1000,2) wbw.nrd(x) #> [1] 0.07664126 wbw.nrd(x,w) #> [1] 0.07664126