R: Geometric mean

gm(x)

But this requires package heR.Misc so you might as well just use:

exp(mean(log(x)))

Leave a comment