# NOT RUN {
data(logvolatility)
## Computes and plots the log-concave density estimate
(r = cnmlcd(logvolatility))
plot(r$lcd, logvolatility) # Density
plot(r$lcd, logvolatility, log=TRUE) # Log-density
plotgradient(r$lcd, logvolatility) # Gradient
# }
Run the code above in your browser using DataLab