set.seed(8192)
x <- rmvnorm.mixt(n=1000, mus=c(0,0), Sigmas=diag(2), props=1)
fhat <- kde(x=x, binned=TRUE)
contourLevels(fhat, cont=c(25,50,75))
contourProbs(fhat, abs.cont=contourLevels(fhat, cont=50))
## compare approx prob with target prob=0.5
contourSizes(fhat, cont=25, approx=TRUE)
## compare to approx circle of radius=0.75 with area=1.77
contourBreaks(fhat, n=3, type="natural")
## natural or Jenks contour levels
Run the code above in your browser using DataLab