Structure pour fréquences puis calcul de moyenne

J'ai un souci pour représenter mes données sous R dans une structure avec laquelle je puisse travailler...
Calculer une moyenne par mean() par exemple ou faire un summary().
Je reprends ici la description de mes données de mon post précédent :
Les données sont simples :
- des notes variant de 0 à 20
- un nombre d'étudiants ayant eu la note considérée
J'ai pour cela créé un premier vecteur de notes :

Code:

notes<-c(0:20)

Puis un deuxième vecteur n :

Code:

n<-c(2,0,0,4,0,3,4,10,6,5,8,13,10,7,8,5,2,0,3,0,0)

signifiant que
- 2 étudiants ont eu 0
- 0 étudiants ont eu 1
- 0 étudiants ont eu 2
- 4 étudiants ont eu 3
etc...

Je voudrais maintenant créer une structure sur laquelle je puisse faire un mean().
J'ai essayé un
Code:

1 2 3 table.1<-table(notes,n) # et un mean(table.1)
mais le resultat n'est pas celui escompté.
De même avec un

Code:

mean(notes*n)

ou bien comme précédemment
Code:

1 2 3 tapply.1<-tapply(notes,n,sum) # puis mean(tapply.1)
Je pourrais evidemment faire une boucle sur mes 2 vecteurs n et notes et faire moi-même le calcul mais bon, je voudrais utiliser les fonctions prévues pour...
merci

La seule solution que j'ai trouvé n'utilise pas mean() :?
Code:

1 2 mul<-(n*notes) moyenne<-sum(mul)/sum(n)
mais bon...dur dur de faire les quartiles facilement ensuite...

Bonjour,

Je vois deux possibilités

Code:

1
2
3
4
5
6
7
8
> notes <- c(0:20)
> n <- c(2, 0, 0, 4, 0, 3, 4, 10, 6, 5, 8, 13, 10, 7, 8, 5, 2, 0, 3, 0, 0)
 
> mean(rep(notes, n))   # crée un vecteur avec toutes les notes
[1] 10.23333
 
> weighted.mean(notes, n)
[1] 10.23333

Pour les quartiles, tu peux facilement adapter la première solution

c'est parfait, merci !