who <- c(
"Aaaaa",
"Bbbbb",
"Cccc",
"Zzzzzzz",
"maximum")
what <- c("1a","1b","1c","1d","1e","1f","1g",
"1h","2a","2b","2c")
x <- matrix(0, length(who), length(what),
dimnames=list(who,what))
x["maximum",] <- c(5,5,6,4,20,6,16,8,10,10,10)
section.7 <- as.grade(x)
