Tentei encontrar uma média geométrica embutida, mas não consegui.

(Obviamente, um built-in não vai me poupar tempo enquanto estiver trabalhando no shell, nem suspeito que haja diferença de precisão; para scripts, tento usar os built-ins o mais rápido possível, onde o (cumulativo) o ganho de desempenho é geralmente perceptível.

Caso não exista um (o que duvido que seja), aqui está o meu.

gm_mean = function(a){prod(a)^(1/length(a))}