data(statfaculty)
data(statfaculty) plot(dH <- density(statfaculty)) rug(jitter(statfaculty))
Run the code above in your browser using DataCamp Workspace