powered by
Data for Exercise 2.78
Tonsils
A data frame with 3 observations on the following 3 variables.
Size
a factor with levels Large Normal Very Large
Large
Normal
Very Large
Carrier
a numeric vector
Non.carrier
# NOT RUN { str(Tonsils) attach(Tonsils) TON <- as.matrix(Tonsils[,2:3]) rownames(TON) <- Size TON barplot(t(TON),beside=TRUE,legend=TRUE) remove(TON) detach(Tonsils) # }
Run the code above in your browser using DataLab