# Generate a random sample
set.seed(42); X <- rnorm(2000)
# Construct bandwidth
bw1 <- lpbwdensity(X)
summary(bw1)
# Display bandwidths for a subset of grid points
summary(bw1, grid=bw1$BW[4:10, "grid"])
summary(bw1, gridIndex=4:10)
Run the code above in your browser using DataLab