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