「右メニュー」の編集履歴(バックアップ)一覧はこちら
「右メニュー」(2010/08/13 (金) 09:55:00) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
**更新履歴
#recent(20)
&link_editmenu2(text=ここを編集)
**更新履歴
#recent(20)
&link_editmenu2(text=ここを編集)
#library(ts)
par(mfrow=c(2,1))
set.seed(2)
ewma <- function (x, lambda, init)
{
y <- filter(lambda*x, filter=1-lambda, method="recursive", init=init)
return (y)
}
x = ts(diffinv(rnorm(100)))
ts.plot(x, ylim=c(-20,20))
for(i in 1:10){
a = (i-1)*0.1+0.1
y1 = ewma(x,lambda=a, init=x[1])
ts.plot(y1, ylim=c(-20,20), col=2)
par(new=T)
print(a)
}