¿Cómo calculo la media ponderada enR?

Por ejemplo, tengo 4 elementos de los cuales 1 elemento es de tamaño (o: longitud, anchura, etc.) 10 y 3 elementos son de tamaño 2.

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

El promedio ponderado es(10 * 1 + 2 * 3) / 4 = 4.