63 (integer) numbers; unimodal or bimodal, that's the question.
data(exHartigan) plot(dH <- density(exHartigan)) rug(exHartigan)# should jitter