Let’s try density on data from k-means example:

> dens1<-density(aggtime) 
> dens1

Call:
	density.default(x = aggtime)

Data: aggtime (14 obs.);	Bandwidth 'bw' = 10.25

       x                 y            
 Min.   :-29.855   Min.   :3.287e-05  
 1st Qu.:  1.298   1st Qu.:2.239e-03  
 Median : 32.450   Median :6.805e-03  
 Mean   : 32.450   Mean   :8.013e-03  
 3rd Qu.: 63.602   3rd Qu.:1.178e-02  
 Max.   : 94.755   Max.   :2.229e-02  
> plot(dens1)

density01