# Generate data from mixture of 2 normals.
n = 2000
X = c(rnorm(n/2), rnorm(n/2, mean=3, sd=1.2))
# Construct a grid of points over which we evaluate the function
by=0.02
Grid=seq(-3, 6, by=by)
## bandwidth for kernel density estimator
h=0.3
## Bootstrap confidence band
band= bootstrapBand(X, kde, Grid, B=100, parallel=FALSE, alpha=0.05, h=h)
plot(Grid,band$fun, type="l", lwd=2, ylim=c(0, max(band$band)),
main="kde with 0.95 confidence band")
lines(Grid, pmax(band$band[,1],0), col=2, lwd=2)
lines(Grid, band$band[,2], col=2, lwd=2)
Run the code above in your browser using DataLab