Wie berechne ich den gewichteten Mittelwert inR?

Zum Beispiel habe ich 4 Elemente, von denen 1 Element Größe hat (oder: Länge, Breite usw.) 10 und 3 Elemente Größe 2 haben.

> z = data.frame(count=c(1,3), size=c(10,2))
> z
  count size
1     1   10
2     3    2

Der gewichtete Durchschnitt ist(10 * 1 + 2 * 3) / 4 = 4.