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