# A one-dimensional example
y <- rnorm(50)
sm.density(y, model = "Normal")
# A two-dimensional example
y <- cbind(rnorm(50), rnorm(50))
sm.density(y, display = "image")
# A three-dimensional example
y <- cbind(rnorm(50), rnorm(50), rnorm(50))
sm.density(y)
Run the code above in your browser using DataLab