arupaka-_-arupaka https://blog.hatena.ne.jp/arupaka-_-arupaka/ arupaka-_-arupakaの日記 https://arupaka-arupaka.hatenadiary.org/ R Rで移動平均 moving_average<-function(ts123,lag){ tmp<-0 for(i in 1:lag){ tmp<-tmp+ts123[(i):(length(ts123)-(lag-i))]/lag } tmp<-c(rep(NA,lag-1),tmp) tmp } j<-moving_average(ll,32) plot(j) 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Farupaka-arupaka.hatenadiary.org%2Fentry%2F20120509%2F1336533017" title="Rで移動平均 - arupaka-_-arupakaの日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2012-05-09 12:10:17 rich https://arupaka-arupaka.hatenadiary.org/entry/20120509/1336533017 1.0 100%