Geometric mean of x

gm_mean(x, na.rm = FALSE)