Среднегеометрический: существует ли встроенное?

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

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

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

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