Jak obliczyć średnią ważoną wR?

Na przykład mam 4 elementy, z których 1 element ma rozmiar (lub: długość, szerokość itp.) 10 i 3 elementy mają rozmiar 2.

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

Średnia ważona wynosi(10 * 1 + 2 * 3) / 4 = 4.