学生の試験成績

Question

生徒の反応を評価するコードが1行ありますが、それは見つけられません。ここには3つの質問と2人の学生の例があります。私はそれをこのようにしてください事前

#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)]

Answer 2

私はそれが既にまあ、答えられていますことを参照してください。

t(apply(responses, 1, FUN = function(x) x == key))