Histogram

> 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(....)"