rownames(m) <- s # student names
colnames(m) <- k # student keywords