λͺ©μ°¨
- μκ³μ΄ μλ£
- μ μμ±
- μκ³μ΄ λͺ¨ν - AR, MA, ARIMA, λΆν΄ μκ³μ΄
- μ°¨λΆ
- R μ€μ΅
μ€λͺ
1. μκ³μ΄ μλ£ : μκ°μ νλ¦μ λ°λΌ κ΄μ°°λ λ°μ΄ν°
2. μ μμ±(stationarity) : νμ€ μΈκ³μμμ λλΆλΆμ μλ£λ€ μ€ μκ³μ΄ μλ£λ λ€λ£¨κΈ° μ΄λ €μ΄ λΉμ μμ± μκ³μ΄ μλ£μ΄λ€. λ°λΌμ λΆμνκΈ° μ¬μ΄ μ μμ± μκ³μ΄ μλ£λ‘ λ³νν νμκ° μλ€.
μ μμ±μ 3κ°μ§ μ£Όμ νΉμ§
(1) νκ· μ΄ μΌμ : λͺ¨λ μμ μ λν΄ μΌμ ν νκ· μ κ°μ§λ€.
- νκ· μ΄ μΌμ νμ§ μμ μκ³μ΄μ μ°¨λΆ(difference)μ ν΅ν΄ μ μν
- μ°¨λΆμ νμμ μλ£μμ μ΄μ μμ μλ£λ₯Ό λΉΌλ κ²
(2) λΆμ°λ μμ μ μμ‘΄νμ§ μμ :λΆμ°μ΄ μΌμ νμ§ μμ μκ³μ΄μ λ³ν(transformation)μ ν΅ν΄ μ μν
(3) 곡λΆμ°λ μμ°¨μλ§ μμ‘΄ν λΏ, νΉμ μμ μλ μμ‘΄νμ§ μμ
μΌλΆ μκ³μ΄μμ μ μμ±μ λνλ΄λ μκ³μ΄ κ³ λ₯΄κΈ°
- (a) 200 κ±°λμΌ λμμ κ΅¬κΈ μ£Όμ κ°κ²©;
- (b) 200 κ±°λμΌ λμμ κ΅¬κΈ μ£Όμ κ°κ²©μ μΌμΌ λ³λ;
- (c) λ―Έκ΅μ μ°κ° νμ μ;
- (d) λ―Έκ΅μμ ν맀λλ μλ‘μ΄ λ¨λ μ£Όνμ μλ³ ν맀μ‘;
- (e) λ―Έκ΅μμ κ³λ 12κ°μ μ°κ° κ°κ²© (κ³ μ λ¬λ¬);
- (f) νΈμ£Ό λΉ ν 리μ μ£Όμμ 맀μ λμ΄ν λΌμ§μ μ 체 μ;
- (g) μΊλλ€ λΆμλΆμ λ§₯ν¨μ§ κ° μ§μμμ μ°κ° ν¬νλ μ€λΌμλμ μ 체 μ;
- (h) νΈμ£Ό μλ³ λ§₯μ£Ό μμ°λ;
- (i) νΈμ£Ό μλ³ μ κΈ° μμ°λ.
보기 | μ μμ± μ 무 | μ¬μ |
1 | x | μΆμΈκ° μκ³ μμ€μ΄ λ³λν¨ |
2 | o | |
3 | x | μΆμΈκ° μκ³ μμ€μ΄ λ³λν¨ |
4 | x | λͺ νν κ³μ μ±μ μ§λ |
5 | x | μΆμΈκ° μκ³ μμ€μ΄ λ³λν¨ |
6 | x | μΆμΈκ° μκ³ μμ€μ΄ λ³λν¨ |
7 | o | |
8 | x | λͺ νν κ³μ μ±μ μ§λ |
9 | x | λͺ νν κ³μ μ±μ μ§λ |
(g) μΊλλ€ λΆμλΆμ λ§₯ν¨μ§ κ° μ§μμμ μ°κ° ν¬νλ μ€λΌμλμ μ 체 μ -> μ μμ± μκ³μ΄
- μΈλ» 보면 μκ³μ΄ (g)μμ λνλλ λλ ·ν μ£ΌκΈ°(cycle) λλ¬Έμ μ μμ±μ λνλ΄λ μκ³μ΄μ΄ μλ κ²μ²λΌ λ³΄μΌ μ μμ΅λλ€. νμ§λ§ μ΄λ¬ν μ£ΌκΈ°λ λΆκ·μΉμ (aperiodic)μΌλ‘ μΈν΄, κ°μ²΄μμ μ¦κ°μ΄ μ£ΌκΈ°μ μΌλ‘ λ°λ³΅λλ€. νμ§λ§ μμκ³Ό λμ μμΈ‘ν μ μλ€. κ·Έλλ μ μμ±μ λνλ΄λ μκ³μ΄λ‘ λΆλ₯ν μ μλ€.
3. μκ³μ΄ λͺ¨ν
(1) μκΈ°νκ· λͺ¨ν (Autoregressive model, AR)
P μμ μ΄μ μ μλ£κ° νμ¬ μλ£μ μν₯μ μ€
μ€μ°¨ν = λ°±μμ‘μκ³Όμ (white noise process)
μκΈ°μκ΄ν¨μ(Autocorrelation Function, ACF) : k κΈ°κ° λ¨μ΄μ§ κ°λ€μ μκ΄κ³μ
λΆλΆμκΈ°μκ΄ν¨μ(partial ACF) : μλ‘ λ€λ₯Έ λ μμ μ μ€κ°μ μλ κ°λ€μ μν₯μ μ μΈμν¨ μκ΄κ³μ
ACF λΉ λ₯΄κ² κ°μ, PACFλ μ΄λ μμ μμ μ λ¨μ μ κ°λλ€
PACFκ° 2μμ μμ μ λ¨μ κ°μ§λ©΄ AR(1) λͺ¨ν
(2) μ΄λνκ· λͺ¨ν (Moving average model, MA)
μ νν κ°―μμ λ°±μμ‘μ κ²°ν©μ΄λ―λ‘ νμ μ μμ± λ§μ‘±
ACFκ° μ λ¨μ μ κ°κ³ , PACFλ λΉ λ₯΄κ² κ°μ
(3) μκΈ°νκ·λμ μ΄λνκ· λͺ¨ν (Autoregressive integrated moving average model, ARIMA)
λΉμ μ μκ³μ΄ λͺ¨ν
μ°¨λΆμ΄λ λ³νμ ν΅ν΄ AR, MA, λλ μ΄ λμ ν©ν ARMA λͺ¨νμΌλ‘ μ μν
ARIMA(p, d, q) - d : μ°¨λΆ μ°¨μ / p : AR λͺ¨ν μ°¨μ / q : MA λͺ¨ν μ°¨μ
(4) λΆν΄ μκ³μ΄
μκ³μ΄μ μν₯μ μ£Όλ μΌλ°μ μΈ μμΈμ μκ³μ΄μμ λΆλ¦¬ν΄ λΆμνλ λ°©λ² κ³μ μμΈ(seasonal factor), μν μμΈ(cyclical), μΆμΈ μμΈ(trend), λΆκ·μΉ μμΈ(random)
4. μ°¨λΆ(differencing)
: μ μμ±μ λνλ΄μ§ μλ μκ³μ΄μ μ μμ±μ λνλ΄λλ‘ λ§λλ λ°©λ² μ€ ν κ°μ§.
: μ°μ΄μ κ΄μΈ‘κ°λ€μ μ°¨μ΄λ₯Ό κ³μ°νλ€.
-λ‘κ·Έ κ°μ λ³νμ μκ³μ΄μ λΆμ° λ³νλ₯Ό μΌμ νκ² λ§λλλ° λμμ΄ λ μ μλ€. μ°¨λΆ(differencing)μ μκ³μ΄μ μμ€μμ λνλλ λ³νλ₯Ό μ κ±°νμ¬ μκ³μ΄μ νκ· λ³νλ₯Ό μΌμ νκ² λ§λλλ° λμμ΄ λ μ μλ€. κ²°κ³Όμ μΌλ‘ μΆμΈλ κ³μ μ±μ΄ μ κ±°(λλ κ°μ)λλ€.
μ μμ±μ λνλ΄μ§ μλ μκ³μ΄μ μ°ΎμλΌ λ λ°μ΄ν°μ μκ° κ·Έλνλ₯Ό μ΄ν΄λ³΄λ κ²λ§νΌ, ACF κ·Έλνλ μ μ©νλ€. μ μμ±μ λνλ΄μ§ μλ λ°μ΄ν°μμλ ACFκ° λλ¦¬κ² κ°μνμ§λ§, μ μμ±μ λνλ΄λ μκ³μ΄μμλ, ACFκ° λΉκ΅μ λΉ λ₯΄κ² 0μΌλ‘ λ¨μ΄μ§ κ²μ΄λ€. κ·Έλ¦¬κ³ μ μμ±μ λνλ΄μ§ μλ λ°μ΄ν°μμ r1r1μ μ’ μ’ ν° μμ κ°μ κ°λλ€.
ν΄μ :
μ°¨λΆμ ꡬν κ΅¬κΈ μ£Όμ κ°κ²©μ ACFλ λ¨μν λ°±μμ‘μ(white noise) μκ³μ΄μ²λΌ μκ²Όλ€. 95% νκ³ λ°κΉ₯μ μκΈ°μκ΄(autocorrelation) κ°μ΄ μκ³ , μ΅-λ°μ€(Ljung-Box) Q∗Q∗ ν΅κ³λ h=10h=10μ λν΄ 0.355λΌλ p-κ°μ κ°λλ€. μ΄ κ²°κ³Όλ κ΅¬κΈ μ£Όμ κ°κ²©μ μΌλ³ λ³λμ΄ κΈ°λ³Έμ μΌλ‘λ μ΄μ κ±°λμΌμ λ°μ΄ν°μ μκ΄μ΄ μλ 무μμμ μΈ μμ΄λΌλ κ²μ λ§νλ€.
5. R μ€μ΅
# 1) μμ€ λ°μ΄ν°λ₯Ό μκ³μ΄ λ°μ΄ν°λ‘ λ³ν
ts(data, frequency = n, start = c(μμλ λ, μ))
# 2) μκ³μ΄ λ°μ΄ν°λ₯Ό x, trend, seasonal, random κ°μΌλ‘ λΆν΄
decompose(data)
# 3) μκ³μ΄ λ°μ΄ν°λ₯Ό μ΄λνκ· ν κ° μμ±
SMA(data, n = μ΄λνκ· μ)
# 4) μκ³μ΄ λ°μ΄ν°λ₯Ό μ°¨λΆ
diff(data, differences = μ°¨λΆνμ)
# 5) ACF κ°κ³Ό κ·Έλνλ₯Ό ν΅ν΄ λκ·Έ μ λ¨κ°μ νμΈ
acf(data, lag.max = λκ·Έμ)
# 6) PACF κ°κ³Ό κ·Έλνλ₯Ό ν΅ν΄ λκ·Έ μ λ¨κ°μ νμΈ
pacf(data, lag.max = λκ·Έμ)
# 7) λ°μ΄ν°λ₯Ό νμ©νμ¬ μ΅μ μ ARIMA λͺ¨νμ μ ν
auto.arima(data)
# 8) μ μ λ ARIMA λͺ¨νμΌλ‘ λ°μ΄ν°λ₯Ό 보μ (fitting)
arima(data, order = c(p, d, q))
# 9) ARIMA λͺ¨νμ μν΄ λ³΄μ λ λ°μ΄ν°λ₯Ό ν΅ν΄ λ―Έλκ°μ μμΈ‘
forecast.Arima(fittedData, h = λ―ΈλμμΈ‘μ)
# 10) μκ³μ΄ λ°μ΄ν°λ₯Ό κ·Έλνλ‘ νν
plot.ts(μκ³μ΄λ°μ΄ν°)
# 11) μμΈ‘λ μκ³μ΄ λ°μ΄ν°λ₯Ό κ·Έλνλ‘ νν
plot.forecast(μμΈ‘λμκ³μ΄λ°μ΄ν°)
'πμκ²©μ¦ > πADsP(λ°μ΄ν°λΆμμ€μ λ¬Έκ°)' μΉ΄ν κ³ λ¦¬μ λ€λ₯Έ κΈ
[ADsP] μ격μ¦μ κ°μΉλ μ΄λμ λμΌκΉ? (feat.곡기μ ) (0) | 2021.11.02 |
---|---|
λΉμ 곡μ ADSP ν©κ²© νκΈ° (0) | 2021.09.26 |
[ADsP 3κ³Όλͺ©] μ΄κ°λ¨ μμ½ μ 리(1/3) + 30ν κΈ°μΆλ¬Έμ (0) | 2021.09.02 |
[ADsP 2κ³Όλͺ©] μ΄κ°λ¨ μμ½ μ 리 + 30ν κΈ°μΆλ¬Έμ (0) | 2021.09.02 |
[ADsP 1κ³Όλͺ©] μ΄κ°λ¨ μμ½ μ 리 + 30ν κΈ°μΆλ¬Έμ (0) | 2021.09.02 |