if(interactive()) {
b <- bw.CvL(redwood)
b
plot(b, main="Cronie and van Lieshout bandwidth criterion for redwoods")
plot(density(redwood, b))
plot(density(redwood, bw.CvL))
}
# \testonly{
b <- bw.CvL(redwood, srange=c(0.03, 0.07), ns=2)
# }
Run the code above in your browser using DataLab