Traté de encontrar un medio geométrico incorporado, pero no pude.

(Obviamente, una función incorporada no me va a salvar en ningún momento mientras trabajo en el shell, ni sospecho que haya alguna diferencia en la precisión; para los scripts trato de utilizar las funciones integradas con la mayor frecuencia posible, donde el (acumulativo) La ganancia de rendimiento es a menudo notable.

En caso de que no haya uno (lo cual dudo que sea el caso) aquí está el mío.

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