# problem-3.2

problem-3.2 The data can be entered using rbind() as

    > all = c(125,210,375,475,590,700)
    > spam = c(50,110,225,315,390,450)
    > tab = rbind(spam,all)
    > dimnames(tab) = list(c("spam","Total"),year=2000:2005)

To make the barplot, we make a new table, replacing all with all-spam, which is the number of e-mails that are not spam.

    > newtab = rbind(spam,all-spam)
    > dimnames(newtab) = list(c("spam","notspam"),year=2000:2005)
    > barplot(newtab,legend=TRUE)