unix-conf/.emacs.d/elpa/ess-20160208.453/etc/other/S-spread/gradexmp.s

19 lines
271 B
ArmAsm
Raw Normal View History

2016-02-18 13:53:30 +00:00
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)