[R] question about sm.density

[Cunningham Kerry]

How can I draw a 95% contour in sm.density?

For example, 

y <- cbind(rnorm(50), rnorm(50))
     sm.density(y, display = "slice")

will give 25%, 50% and 75% contours automatically, but
no reference on other values.