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)