library(agricolae)
data(growth)
attach(growth)
#startgraph
h1<-hist(height,plot=FALSE)
points<-ojiva.freq(h1,type="l",col="red",frame=FALSE,
xlab="Limit of class", ylab="Accumulated relative frequency", main="ojiva")
grid(col="black")
#endgraph
print(points)
Run the code above in your browser using DataLab