# NOT RUN {
x <- rbeta(1000, shape1 = 2, shape2 = 5)
## True mode:
betaMode(shape1 = 2, shape2 = 5)
## Estimation:
tsybakov(x, kernel = "triangular")
tsybakov(x, kernel = "gaussian", alpha = 0.99)
M <- mlv(x, method = "tsybakov", kernel = "gaussian", alpha = 0.99)
print(M)
plot(M)
# }
Run the code above in your browser using DataLab