---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
# Continuation from here.
#
# How to get the right figure from the left figure?

         

# The left figure:
BF=3; HF=2.4
noClass=1; histo(beans)
# Then, the right:
underx2("lengths of beans")
gridVC(seq(0,3,0.1), "black"); GridVC(seq(0,3,0.5), "black")
# See the "command index" for underx2  gridVC  GridVC  underY
underY("20", 20/0.1)
underY("10", 10/0.1)
underY( "0",  0/0.1)
# underY(P,Q)  write P at the quote Q. To find Q (in this case) you need to divide
# the percentage (you want to write) by the width of the intervals.  In this
# histogram the intervals have a width of 0.1