problem-4.25

problem-4.25  These graphs can be produced as follows:
> bwplot(len ~ factor(dose) | supp, data = ToothGrowth)
> bwplot(len ~ supp | factor(dose), data = ToothGrowth)