Geometric Mean: is there a built-in?

Question

I tried to find a built-in for geometric mean but couldn't.(Obviously a built-in isn't going to save me any time while working in the shell, nor do I suspect there's any difference in accuracy; for scripts I try to use built-ins as often as possible, where the (cumulative) performance gain is often noticeable.In case there isn't one (which I doubt is the case) here's mine. gm_mean = function(a){prod(a)^(1/length(a))}

Answer 1

Actually there is a built in, that is , there is a package where it is built in. Fairly well used one too. Simple as 3.1415926

install.packages("psych") # Install psych package if not allready loaded

library("psych") # Load psych package

# now apply (assuming vector x is defined)

geometric.mean(x) # Apply geometric.mean function

# 4.209156