理学療法士がまとめたノート
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…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。