Как вычислить взвешенное среднее вR?

Например, у меня есть 4 элемента, из которых 1 элемент имеет размер (или: длина, ширина и т. Д.), 10 и 3 элемента имеют размер 2.

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

Средневзвешенное значение(10 * 1 + 2 * 3) / 4 = 4.