19 lines
271 B
ArmAsm
19 lines
271 B
ArmAsm
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)
|
|
|
|
|