problem-4.2

problem-4.2  Once the variables mpg and price are made, this can be done with
> ftable(table(mpg, price, Cars93$Type))