> papa<-c(30,10,8,13,15,20,14,17,20,25,15,25,18,30,14,30,25)
> hist(papa)
# Set density and intervals.
> result1<- hist(papa, freq=FALSE, ylim=c(0,0.1), br=c(0,5,10,15,20,25,30))
* "result1<- hist(....)" is same as "> hist(....)"