problem-3.4

problem-3.4  The barplots are made with the commands
> barplot(t(dvdsales), beside=T)
    
Reversing the time so that the numbers increase can be done using notation for data frames introduced in Chapter 4:
> barplot(t(dvdsales[7:1,]), beside=T)