Как я могу вычислить код в процентах?

Question

scoresQA<-t(apply(FormA[-1,-1],1,function (x) as.numeric((FormA[1,-1]==x))))
scoresPerQA<-apply(scoresQA,2,sum)

scoresQB<-t(apply(FormB[-1,-1],1,function (x) as.numeric((FormB[1,-1]==x))))
scoresPerQB<-apply(scoresQB,2,sum)

Это код, который я сделал, чтобы определить общий балл по каждому вопросу. Как я могу вычислить это в процентах? (В формате nnn.n%)

Answer 1

Было бы полезно узнать, как выглядят FormA и FormB. Однако, возможно, это уже делает свое дело:

scoresQA <- t(apply(FormA[-1,-1], 1, function (x) as.numeric((FormA[1,-1]==x))))
scoresPerQA <- apply(scoresQA, 2, sum)
QA_percentage <- scoresPerQA / nrow(scoresQA)

scoresQB <- t(apply(FormB[-1,-1], 1, function (x) as.numeric((FormB[1,-1]==x))))
scoresPerQB <- apply(scoresQB, 2, sum)
QB_percentage <- scoresPerQB / nrow(scoresQB)