_覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
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
鏤
|
殊 煙隈 螻旧 朱 企. 螻旧 願屋 螻旧 螳讌 螻 螻旧 蠏瑚 願屋朱 瑚 覿 覓語願鍵 覓語企. 磯殊 磯Μ れ朱 企蟆 襷 . 螻 覓語 豢覲旧 覦り. (蟾蟯 リ啓 螳 蠖譴) |