Я пытался найти встроенную для геометрического среднего, но не смог.

(Очевидно, что встроенная функция не спасет меня ни в какое время при работе в оболочке, и я не подозреваю, что есть разница в точности; для сценариев я стараюсь использовать встроенные функции как можно чаще, где (накопительный) прирост производительности часто заметно.

В случае, если нет ни одного (что я сомневаюсь в этом), вот мой.

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