시계열의 자기상관관계, 편자기상관관계

# date kospi

# 2017-11-17 2533.99 
# 2017-11-20 2527.67 
# 2017-11-21 2530.70 
# 2017-11-22 2540.51 
# 2017-11-23 2537.15 
# 2017-11-24 2544.33 
# 2017-11-27 2507.81 
# 2017-11-28 2514.19 
# 2017-11-29 2512.90 
# 2017-11-30 2476.37 
# 2017-12-01 2475.41 
# 2017-12-04 2501.67 
# 2017-12-05 2510.12 
# 2017-12-06 2474.37 
# 2017-12-07 2461.98 
# 2017-12-08 2464.00 
# 2017-12-11 2471.49 
# 2017-12-12 2461.00 
# 2017-12-13 2480.55 
# 2017-12-14 2510.31

# 데이터 읽어오기
kospi <- read.table("clipboard", header = TRUE)

# 그래픽 화면 분할(2행 1열)
par(mfrow = c(2, 1))

# 시계열의 자기상관관계
acf(kospi$kospi)

# 시계열의 편자기상관관계
pacf(kospi$kospi)

# 그래픽 화면 분할(1행 1열)
par(mfrow = c(1, 1))