_覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
FrontPage › EWMA
|
|
ewma <- function(x, lambda=0.94){ rs <- c() for(idx in 1:length(x)){ if (idx == 1){ rs <- c(x[idx]) } else { rs <- c(rs, lambda * x[idx] + (1-lambda)*rs[idx-1]) } } return(data.frame(idx, x, ewma=rs)) } x <- c(100, 150, 120, 150) ewma(x, lambda = 0.3) 蟆郁骸
> ewma(x, lambda = 0.3) idx x ewma 1 4 100 100.00 2 4 150 115.00 3 4 120 116.50 4 4 150 126.55
鏤
|
覲牛伎螻 矩る 襷企朱 螳伎 濠 螳 覲企. 蠏碁覃 讌 讀蟇一 覦豺 ′ 豺 伎 觜 蟒 伎螻 螳 磯Μ 譯朱 覓伎 る 蟆 蟆企. 襭 5覿 螳 語 蟆一 (企譴) |