# NOT RUN {
asbestos <-
structure(c(310, 36, 0, 0, 212, 158, 9, 0, 21, 35, 17, 4, 25,
102, 49, 18, 7, 35, 51, 28), .Dim = 4:5, .Dimnames = list(c("none",
"grade1", "grade2", "grade3"), c("0-9", "10-19", "20-29", "30-39",
"40+")))
dim(asbestos)
dimnames(asbestos)
# }
Run the code above in your browser using DataLab