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