相乗平均

すべての数値を掛け合わせて、その n 乗根を求めたものを相乗平均あるいは幾何平均といいます。

geomean <- function(x)
{
x <- x[!is.na(x)]
ifelse(all(x > 0), exp(mean(log(x))), NA)
}


This page is powered by Blogger. Isn't yours?