2018-01-22 移動平均 時系列 x <- runif(500,-1,1) #一様分布の乱数500個 plot(y2,type = "l") 二乗平均平方根(RMS) xr <-sqrt( x^2) 移動平均 install.packages("TTR") library(TTR) x5 <- SMA(xr, 5) # 移動平均間隔5 plot(x5,type = "l") x10 <- SMA(xr, 10) # 移動平均間隔10 plot(x10,type = "l")