_覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
FrontPage › GeometricMean
|
|
library("dplyr") geometric.mean <- function(x){ prop <- c(na.omit(x / dplyr::lag(x))) return(exp(mean(log(prop)))) } x <- c(1000, 1000*1.1, 1100*1.2, 1320*0.85) geometric.mean(x) 蟆郁骸
> geometric.mean(x) [1] 1.039117
鏤
|
讌 瑚 覿螻狩. 蠏碁朱 企蟾讌 瑚企. 覈 蟆 . 蠏碁朱 企 蟆 . 蠏碁Μ螻 覈 蟆 り 伎 願 企 蟆蟾讌 蠍壱讌 蟆企. ( 覯 伎) |