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