SES vs naive
In questo esercizio metterai in pratica quanto sai su training e test set, sulla funzione subset() e sulla funzione accuracy(), tutte viste nel Capitolo 2, per confrontare le previsioni SES e naive sui dati marathon.
Hai già fatto qualcosa di molto simile per confrontare le previsioni naive e mean in un esercizio precedente, "Evaluating forecast accuracy of non-seasonal methods".
Ripassiamo il processo:
- Per prima cosa, importa e carica i dati. Decidi quanta parte dei dati destinare al training e quanta al testing; i set non devono sovrapporsi.
- Crea un sottoinsieme dei dati per ottenere il training set, che userai come argomento nelle funzioni di previsione. Facoltativamente, puoi creare anche un test set da usare dopo.
- Calcola le previsioni sul training set usando le funzioni di forecasting che preferisci e imposta
huguale al numero di valori che vuoi prevedere, che corrisponde anche alla lunghezza del test set. - Per visualizzare i risultati, usa la funzione
accuracy()con la previsione come primo argomento e i dati originali (o il test set) come secondo. - Scegli una metrica in output, come RMSE o MAE, per valutare le previsioni; un errore più piccolo indica maggiore accuratezza.
I dati marathon sono caricati nel tuo workspace.
Questo esercizio fa parte del corso
Previsioni in R
Istruzioni dell'esercizio
- Usando
subset(), crea un training set permarathonche includa tutti gli anni tranne gli ultimi 20, che terrai da parte per il testing. - Calcola le previsioni SES e naive di questo training set e salvale rispettivamente in
fcsesefcnaive. - Calcola le misure di accuratezza delle due serie di previsioni usando la funzione
accuracy()nella tua console. - Assegna a
fcbestle previsioni migliori (trafcsesefcnaive) in base all’RMSE.
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
# Create a training set using subset()
train <- ___(___, end = length(marathon) - ___)
# Compute SES and naive forecasts, save to fcses and fcnaive
fcses <- ses(___, h = ___)
fcnaive <- naive(___, h = ___)
# Calculate forecast accuracy measures
accuracy(___, ___)
accuracy(___, ___)
# Save the best forecasts as fcbest
fcbest <- ___