相乗平均
すべての数値を掛け合わせて、その n 乗根を求めたものを相乗平均あるいは幾何平均といいます。
geomean <- function(x)
{
x <- x[!is.na(x)]
ifelse(all(x > 0), exp(mean(log(x))), NA)
}