_覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
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
鏤
|
るジ 蟲郁 蠍語 覦 譯手鍵 焔 貅覃 蟆郁記 蠍碁 覦 蟆 . (覯 れ碁) |