R語言中計算幾何平均數

 

幾何平均數：幾何平均數是對各變量值的連乘積開項數次方根。求幾何平均數的方法叫做幾何平均法。如果總水平、總成果等於所有階段、所有環節水平、成果的連乘積總和時，求各階段、各環節的一般水平、一般成果，要使用幾何平均法計算幾何平均數，而不能使用算術平均法計算算術平均數。（百度百科）

 

幾何平均數：幾何平均數是對各變量值的連乘積開項數次方根。

 

1、測試數據

test <- c(3, 5, 7, 2)

sum_m1 <- 3 * 5 * 7 * 2   ## 計算連乘方法1

sum_m2 <- 1               ##方法2 
for (i in 1:length(test)) {
  sum_m2 <- sum_m2 * test[i] 
}

sum_m1
sum_m2

 

2、計算開方次數

n <- length(test)
n

 

 

3、計算幾何平均數

geno_1 <- sum_m1^(1/n)
geno_2 <- exp((1/n) * log(sum_m1))
geno_1
geno_2