Usare la regressione per testare le proiezioni
Dopo aver ispezionato visivamente i dati, decidi di usare anche un'analisi di regressione per verificare se c'è uno spostamento statisticamente significativo nel trend tra i ricavi storici e quelli proiettati. Ricorda che devi creare una variabile di trend (trend) e una variabile di shift (shift).
Per questo esercizio, i dati dei ricavi che hai creato nell'esercizio precedente sono salvati nell'oggetto rev. In quei dati, avrai due serie temporali: ricavi storici (hist_rev) e ricavi proiettati (proj_rev). I ricavi storici hanno valori positivi per i primi 10 anni di dati storici e 0 per il periodo di proiezione. I ricavi proiettati hanno 0 per i primi 10 anni e valori positivi durante il periodo di proiezione.
Questo esercizio fa parte del corso
Valutazione azionaria in R
Istruzioni dell'esercizio
- Crea un'unica serie di ricavi che sommi sia i dati storici sia quelli proiettati.
- Aggiungi una variabile di trend a
rev_all_dfusandoseq(). - Aggiungi una variabile di shift a
rev_all_dfusandoifelse(). - Esegui la regressione di
rev_allsutrendeshift.
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
# Create a data frame of single series
rev_all <- ___
rev_all_df <- data.frame(rev_all)
# Create Trend Variable
rev_all_df$trend <- seq(___, nrow(rev_all_df), ___)
# Create Shift Variable
rev_all_df$shift <- ifelse(rev_all_df$trend <= 7, ___, ___)
# Run regression
reg <- lm(___, data = rev_all_df)
summary(reg)