data = c(rnorm(1000),rnorm(2000)+2,rnorm(1000)*2-1)
# Optional, if not given ParetoDensityEstimation()
# calls ParetoRadius()
pareto_radius<-ParetoRadius(data)
pdeVal <- ParetoDensityEstimation(data,pareto_radius)
plot(pdeVal$kernels,pdeVal$paretoDensity,type='l',xaxs='i',
yaxs='i',xlab='Data',ylab='PDE')Run the code above in your browser using DataLab