SES vs ingênuo
Neste exercício, você vai aplicar seu conhecimento sobre conjuntos de treino e teste, a função subset() e a função accuracy(), que você aprendeu no Capítulo 2, para comparar previsões SES e ingênuas para os dados marathon.
Você já fez algo muito parecido ao comparar as previsões ingênuas e da média em um exercício anterior, "Avaliação da acurácia de métodos não sazonais".
Vamos recapitular o processo:
- Primeiro, importe e carregue seus dados. Decida quanto dos dados você quer alocar para treino e quanto para teste; os conjuntos não devem se sobrepor.
- Faça um subconjunto dos dados para criar um conjunto de treino, que você usará como argumento na(s) sua(s) função(ões) de previsão. Opcionalmente, você também pode criar um conjunto de teste para usar depois.
- Calcule as previsões do conjunto de treino usando a(s) função(ões) de previsão que você escolher e defina
higual ao número de valores que deseja prever, que também é o tamanho do conjunto de teste. - Para ver os resultados, use a função
accuracy()com a previsão como primeiro argumento e os dados originais (ou o conjunto de teste) como segundo. - Escolha uma medida na saída, como RMSE ou MAE, para avaliar a(s) previsão(ões); um erro menor indica maior acurácia.
Os dados marathon estão carregados no seu ambiente de trabalho.
Este exercício faz parte do curso
Previsão em R
Instruções do exercício
- Usando
subset(), crie um conjunto de treino paramarathoncontendo todos os anos, exceto os últimos 20, que você vai reservar para teste. - Calcule as previsões SES e ingênua desse conjunto de treino e salve-as em
fcsesefcnaive, respectivamente. - Calcule as medidas de acurácia das duas previsões usando a função
accuracy()no seu console. - Atribua as melhores previsões (ou
fcsesoufcnaive) com base no RMSE afcbest.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# 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 <- ___