時系列
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…
下のデータをコピーして時系列グラフを作ってみます 心拍変動を三次元加速度を同時測定した結果です 被験者は私です RRI TEM X Y Z HF LFHF LF activity HR793 21.5 0.16 -1.09 -0.12 75.531 4.247 80.941 0.11 76800 21.5 0.16 -1.09 -0.12 75.436 4.078 80…