data x; input value; datalines; 1 2 3 4 5 ; run; /* 幾何平均の計算 */ data x; set x end=last; retain prod 1; prod = prod * value; if last then do; geometric_mean = exp(log(prod) / _n_); output; end;