r - 对学生的考试进行评分

Question

我认为有一行代码可以对学生的回答进行评分，但我找不到它。这是一个包含三个问题和两个学生的示例。

提前致谢

#the correct answers
key = t(c(1,2,3))

#the student responses
responses = t(data.frame(c(1,2,3),c(1,3,3)))
colnames(responses) =c('v1','v2','v3')
rownames(responses) = c('student1', 'student2')

#the desired graded matrix
graded = t(data.frame(c(T,T,T),c(T,F,T)))
dimnames(graded) = dimnames(responses)
graded

Answer 1

我会这样做:responses == key[col(responses)]