problem-4.22

problem-4.22  This command will produce the figure:
> xyplot(weight \TILDE\/ height | cut(age,36*(0:4)), data = kid.weights)