powered by
binhist(x, just="center",scale=1.0)
edf
data(birth) binhist(birth$Weight,scale=100) lines(smkde(birth$Weight,scale=100),col=4) lines(histospline(birth$Weight,scale=100),col=3) out = binem(birth$Weight,scale=100) lines(out,col=2)
Run the code above in your browser using DataLab