A trivial one-line function for exp(mean(log()))
geomean(x)
x
a vector of numeric values
the geometric mean (a scalar value)
geometric.mean
geomean(rnorm(20,5))