- | /O(n)/ Geometric mean of a sample containing no negative values.
geometricMean :: (G.Vector v Double) => v Double -> Double
geometricMean = exp . mean . G.map log

geometricMean :: (G.Vector v Double) => v Double -> Double
geometricMean = exp . mean . G.map log
geometricMean = exp . mean . G.map log