Exponential smoothing(Wiki記事) tmax<-1000 t<-1:tmax d<-rep(sort(runif(100)),10)*20000+rep(sort(runif(200)),5)*300000+t*3+(t-500)^2*1+rnorm(tmax)*50000 tsd<-ts(d,freq=12) plot(tsd) m<-HoltWinters(tsd) lines(fitted(m)[,1],col=2) Weighted av…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。