右メニュー

「右メニュー」の編集履歴(バックアップ)一覧はこちら

右メニュー」(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) }

表示オプション

横に並べて表示:
変化行の前後のみ表示: