Decalajul șomajului
Deoarece tendințele economice pot influența turismul cu o anumită întârziere, poate fi util să aplici un decalaj datelor despre șomaj înainte de analiză.
Generarea unui decalaj în xts este simplă cu comanda lag(), care necesită specificarea datelor de decalat (argumentul x) și a unei valori k pentru a determina direcția și amploarea decalajului.
Ai grijă să păstrezi o formatare consecventă. R de bază și pachetul zoo necesită specificarea unui decalaj cu o valoare negativă, astfel încât un decalaj de 1 se exprimă prin "-1" (iar un avans de 1 se exprimă, contra-intuitiv, prin "1"). În schimb, pachetul xts specifică decalajele folosind o valoare pozitivă, astfel încât un decalaj de 1 se exprimă prin "1" (iar un avans de 1 se exprimă prin "-1").
Acest exercițiu face parte din cursul
Studiu de caz: Analiza seriilor de timp pentru un oraș în R
Instrucțiuni pentru exercițiu
- Folosește
lag()pentru a genera un decalaj de o lună al șomajului din SUA. Pentru un decalaj de o lună pe date lunare, setează pur și simplu argumentulkla1. Reține că obiectulunemploymentconține date de serie temporală atât pentru șomajul din SUA (us), cât și pentru cel din MA (ma). Va trebui să specifici coloana pe care vrei să o decalezi. Salvează noul obiect xts caus_monthlag. - Folosește un alt apel la
lag()pentru a genera un decalaj de un an al șomajului din SUA. Din nou, asigură-te că specifici coloana corectă dinunemploymentși valoareakpotrivită pentru a genera un decalaj pe un an întreg. Salvează noul obiect xts caus_yearlag. - Folosește
merge()pentru a combina datele originale despre șomaj (unemployment) cu noile decalaje (us_monthlagșius_yearlag). Salvează datele combinate caunemployment_lags. - Folosește
head()pentru a vizualiza primele15rânduri dinunemployment_lags.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
# Create a one month lag of US unemployment
us_monthlag <- lag(___$___, k = ___)
# Create a one year lag of US unemployment
us_yearlag <-
# Merge your original data with your new lags
unemployment_lags <- merge(unemployment, ___, ___)
# View the first 15 rows of unemployment_lags