! 幾何平均を計算する

平均は通常、算術平均を意味し、mean()で計算できる。

幾何平均を計算するには自分で関数を作る。
ベクトルの絶対値を取り対数にして算術平均を計算して指数で戻す

 data = c(1,2,3,4,5,6,7,8)
 gmean = function(data) {
   return (exp(log(abs(data))))
 }

  > gmean(data)   
 [1] 3.764351