Ketika melakukan analisis intervensi dengan data deret waktu (alias Rangkaian Waktu Terputus) seperti yang dibahas di sini misalnya, salah satu persyaratan yang saya miliki adalah memperkirakan total keuntungan (atau kerugian) akibat intervensi - yaitu jumlah unit yang diperoleh atau hilang (variabel Y ).
Tidak sepenuhnya memahami bagaimana memperkirakan fungsi intervensi menggunakan fungsi filter dalam R, saya melakukannya dengan cara kasar, berharap ini cukup umum untuk bekerja dalam situasi apa pun.
Katakanlah diberi data
cds<- structure(c(2580L, 2263L, 3679L, 3461L, 3645L, 3716L, 3955L,
3362L, 2637L, 2524L, 2084L, 2031L, 2256L, 2401L, 3253L, 2881L,
2555L, 2585L, 3015L, 2608L, 3676L, 5763L, 4626L, 3848L, 4523L,
4186L, 4070L, 4000L, 3498L), .Dim = c(29L, 1L), .Dimnames = list(
NULL, "CD"), .Tsp = c(2012, 2014.33333333333, 12), class = "ts")
kami memutuskan bahwa model pemasangan terbaik adalah sebagai berikut, dengan fungsi intervensi sebagai
Xt mana adalah pulsa pada Oktober 2013.
fit4 <- arimax(log(cds), order = c(1,1,0),include.mean=FALSE,
xtransf = data.frame(Oct13 = 1*(seq_along(cds)==22)),
transfer = list(c(1,0))
,xreg=1*(seq_along(cds)==3))
fit4
# ARIMA(1,1,0)
# Coefficients:
# ar1 xreg Oct13-AR1 Oct13-MA0
# -0.0184 0.2718 0.4295 0.4392
# s.e. 0.2124 0.1072 0.3589 0.1485
# sigma^2 estimated as 0.02176: log likelihood=13.85
# AIC=-19.71 AICc=-16.98 BIC=-13.05
Saya punya dua pertanyaan:
1) Meskipun kita telah membedakan kesalahan ARIMA, untuk menilai fungsi intervensi yang kemudian secara teknis sesuai menggunakan seri yang dibedakan adakah yang perlu kita lakukan untuk "mengubah kembali" perkiraan ω 0 atau δ dari menggunakan ▽ X t ke X t ?
2) Apakah ini benar: Dalam rangka untuk menentukan gain dari intervensi, saya dibangun intervensi dari parameter. Setelah saya memiliki m t maka saya membandingkan nilai-nilai pas dari model fit4 (exp () untuk membalikkan log) untuk exp (nilai fitted dikurangi m t ) dan menentukan bahwa selama periode yang diamati, intervensi mengakibatkan 3342,37 unit tambahan.
Apakah proses ini yang benar untuk menentukan perolehan secara umum dari analisis intervensi?
int_vect1<-1*(seq_along(cds)==22)
wo<- 0.4392
delta<-0.4295
mt<-rep(0,length(int_vect1))
for (i in 1:length(int_vect1))
{
if (i>1)
{
mt[i]<-wo*int_vect1[i]+delta*mt[i-1]
}
}
mt
sum(exp(fitted(fit4)) - (exp(fitted(fit4) - mt)))