# NOT RUN {
x <- rbeta(1000, shape1 = 2, shape2 = 5)
## True mode:
betaMode(shape1 = 2, shape2 = 5)
## Estimation:
asselin(x, bw = 1)
asselin(x, bw = 1/2)
M <- mlv(x, method = "asselin")
print(M)
plot(M)
# }
Run the code above in your browser using DataLab