Como faço para calcular a média ponderada emR?

Por exemplo, eu tenho 4 elementos dos quais 1 elemento é de tamanho (ou: comprimento, largura, etc.) 10 e 3 elementos são de tamanho 2.

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

A média ponderada é(10 * 1 + 2 * 3) / 4 = 4.