_覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
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
鏤
|
蠏碁 覓 襷 襷も朱 襷 譯 . 讌襷 蠏碁 覓 襷 kも 觜 れ 覲 . (碁 郁規ろ) |