library(agricolae)
data(growth)
attach(growth)
#startgraph
h1<-hist(height,border=FALSE,xlim=c(6,14))
polygon.freq(h1,frequency=1,col="red")
#endgraph
#startgraph
h2<-graph.freq(height,frequency=2,col="yellow",xlim=c(6,14))
polygon.freq(h2,frequency=2,col="red")
#endgraph
detach(growth)
Run the code above in your browser using DataLab