# NOT RUN {
dens = densityMclust(faithful$waiting)
plot(dens, what = "density")
plot(dens, what = "density", data = faithful$waiting)
dens = densityMclust(faithful)
plot(dens, what = "density")
plot(dens, what = "density", type = "image", col = "steelblue")
plot(dens, what = "density", type = "persp", col = adjustcolor("steelblue", alpha.f = 0.5))
x = iris[,1:4]
dens = densityMclust(x)
plot(dens, what = "density", nlevels = 7)
# }
# NOT RUN {
plot(dens, x, what = "density", drawlabels = FALSE,
levels = quantile(dens$density, probs = c(0.05, 0.25, 0.5, 0.75, 0.95)))
plot(dens, what = "density", type = "image", col = "steelblue")
plot(dens, what = "density", type = "persp", border = adjustcolor(grey(0.1), alpha.f = 0.5))
# }
Run the code above in your browser using DataLab