QCM et attribution de points

Bonjour,
Suite à une étude on réalise un QCM.
On essaie d'attribuer des points différents pour chaque réponses cochées.
Exemple:
Pour 4 QCMs, cocher une seule réponse:
a. vaut 1 points
b. vaut 2 points
c. vaut 3 points
d. vaut 4 points
On veut faire ensuite faire la somme des points des 4 QCM
Exemple l'individu 1 à répondu dans l'ordre des 4 QCM: d, b, c, a
Donc on fait la somme : 4+2+3+1=10 points au total pour cet individu.
Comment m'y prendre sur R pour attribuer des points à chaque réponses ?
Merci d'avance

Bonjour,

une possibilité,

Code:

---

1 2 3 4 5 6

x <- c("d", "b", "c", "a") pts <- match(x, letters[1:4]) pts [1] 4 2 3 1 sum(pts) [1] 10

---

cdlt

Merci.
J'ai importé des données excel, sur lesquels je veux traiter des variables qualitatives (qui sont la réponse aux questions d'un QCM pour une étude)
Variable qualitative auxquels je veux attribuer des points.
Pour calculer un total de points pour chacun des 400 individus.
Merci pour ton ex, mais il me semble que la formule n'est pas adaptable pour ce cas de figure.
En effet j'aurais du préciser que je travaillais à partir de variable importée.

bonjour,

je t'ai donné la logique que j'utiliserais. Maintenant pour pouvoir aller plus loin il faudrait en savoir un peu plus sur la structure de tes données, est-ce que tes individus sont en lignes, les variables en colonnes et si oui est-ce qu'elles contiennent toutes les 4 premières lettres de l'alphabet, etc.
Si ton jeu de données est sous cette forme :

Code:

---

1 2 3 4 5 6 7

tab #non du jeu de données V1 V2 V3 V4 1 b a a c 2 d b b a 3 b b a c 4 a c d d 5 d a d b

---

Alors tu peux faire :

Code:

---

1 2	rowSums(sapply(tab, function(x) match(x, letters[1:4]))) [1] 7 9 8 12 11

---

Tu peux vérifier que les sommes en ligne des scores correspondent bien aux modalités.

cdlt

En effet, ça y ressemble plus. Merci tototode.
Les variables en colonne, qui représente le numéro de la question QCM1, QCM2, QCM3.
les individus en ligne.
Dans QCM1, Les vecteurs sont les mots "jamais", "rarement", "souvent","toujours"
Dans QCM2, les vecteurs sont les mots "jamais", "une fois", "plus de 3 fois", "plus de 10fois"
Je voulais considérer que :
"jamais"=0 pts,
"rarement", "une fois"=1 pts,
"souvent", "plus de 3 fois"=2 pts,
"toujours", "plus de 10fois"=3 pts
Pour réaliser la somme des points pour chaque individus.
Conclusion, les vecteurs sont les réponses aux questions qui peuvent être différente les une aux autre mais classable par niveau de pts.

Une possibilité est de te créer un tableau avec les modalités classés selon l'ordre des points :

Code:

---

1 2 3 4 5

pts <- structure(list(QCM1 = structure(1:4, .Label = c("jamais", "rarement", "souvent", "toujours"), class = "factor"), QCM2 = structure(c(1L, 4L, 3L, 2L), .Label = c("jamais", "plus de 10 fois", "plus de 3 fois", "une fois"), class = "factor")), .Names = c("QCM1", "QCM2"), row.names = c(NA, -4L), class = "data.frame")

---

Si les QCM n'ont pas le même nombre de modalités alors stocke cet objet sous forme de liste, ça ne changera rien pour la suite.
Ensuite tu utilises la fonction mapply sur ton tableau :

Code:

---

1 2 3 4 5 6 7 8 9

QCM1 QCM2 1 rarement jamais 2 souvent plus de 3 fois 3 toujours plus de 10 fois 4 souvent une fois 5 rarement une fois 6 souvent plus de 10 fois   rowSums(mapply(function(x, y) match(x, y), tab, pts))

---

L'autre possibilité c'est de coder les réponses par ordre alphabétique, par exemple "a_jamais", "b_une fois", dans ces cas là on peut se servir de cet ordre pour attribuer les points. L'avantage de cette dernière solution c'est que le nombre de modalités peut-être différent sans que ça pose problème et en plus il n'y a pas besoin de passer par cette liste intermédiaire de correspondance entre modalités et points attribués.

cdlt