단순이동평균

R의 기본 기능에서 제공하는 데이터로 1871 ~ 1970년 동안, 나일강의 연간 흐름을 측정한 데이터를 이용하여 시계열 데이터 분석을 한다.

install.packages("forecast")

library(forecast)

# 단순이동평균(Simple Moving Aerage)

# forecast::ma()

# 그래픽 화면 분할
opar <- par(no.readonly = TRUE)
par(mfrow = c(2, 2))

# y축 눈금의 최소값과 최대값 수정
ylim <- c(min(Nile), max(Nile))

# 시계열 그래프 작성
plot(Nile, main = "Flow of the River Nile")
plot(forecast::ma(Nile, order = 3),   main = "Simple Moving Average(k=3)",   ylim = ylim)
plot(forecast::ma(Nile, order = 7),   main = "Simple Moving Average(k=7)",   ylim = ylim)
plot(forecast::ma(Nile, order = 15), main = "Simple Moving Average(k=15)", ylim = ylim)

[출처] 빅데이터 분석도구 R in Action, Robert I. Kabacoff 지음, 신종화/김선업/정희태 옮김, 흥릉과학출판사 p391