Accidentally, this is also provided as the exHartigan (example of Hartigans') data set.
exHartigan
data(statfaculty)
data(statfaculty) plot(dH <- density(statfaculty)) rug(jitter(statfaculty)) data(exHartigan) stopifnot(identical(exHartigan,statfaculty))
Run the code above in your browser using DataCamp Workspace