Questa funzione permette il calcolo della media armonica.
mean.a(x, ...)
x
...
mean.g.
mean.g
x <- c(1,3,2,4,6,7) mean.a(x)