R
단순이동평균
이부일
2017. 8. 28. 13:05
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