_ | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁
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
蠍 蠍郁鍵..
企: : るジ讓曙 襦螻豺 企Ν 譯殊語. 襦螻豺
EditText : Print : Mobile : FindPage : DeletePage : LikePages : Powered by MoniWiki : Last modified 2022-01-09 16:25:30

"覩語" 手 襷 覦 覦朱慨覃伎 . (ろ 碁狩)