data(statfaculty)
plot(density(statfaculty))
dip(statfaculty)
str(dip(statfaculty, full = TRUE, debug = TRUE))
data(faithful)
fE <- faithful$eruptions
plot(density(fE))
str(dip(fE, full = TRUE, debug = TRUE))
data(precip)
plot(density(precip))
str(dip(precip, full = TRUE, debug = TRUE))
Run the code above in your browser using DataLab