Prédire les locations de vélos avec le modèle de random forest
Dans cet exercice, vous allez utiliser le modèle ajusté à l’exercice précédent pour prévoir les locations de vélos pour le mois d’août.
La fonction predict() (docs) pour un modèle ranger renvoie une liste. L’un des éléments de cette liste est predictions, un vecteur de valeurs prédites. Vous pouvez accéder à predictions avec la notation $ pour les éléments nommés d’une liste :
predict(model, data)$predictions
Le modèle bike_model_rf et le jeu de données bikesAugust (pour l’évaluation) sont déjà chargés.
Cet exercice fait partie du cours
<cours>Apprentissage supervisé en R : Régression</cours>Instructions de l’exercice
- Appelez
predict()surbikesAugustpour prédire le nombre de vélos loués en août (cnt). Ajoutez ces prédictions àbikesAugustdans une colonnepred. - Complétez les blancs pour calculer la racine de l’erreur quadratique moyenne des prédictions.
- Le modèle de Poisson que vous avez construit pour ces données donnait une RMSE d’environ 112,6. Comment ce modèle se compare-t-il ?
- Complétez les blancs pour tracer les valeurs réelles de locations (
cnt) par rapport aux prédictions (predsur l’axe des x).
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
# bikesAugust is available
str(bikesAugust)
# bike_model_rf is available
bike_model_rf
# Make predictions on the August data
bikesAugust$pred <- ___(___, ___)$___
# Calculate the RMSE of the predictions
bikesAugust %>%
mutate(residual = ___) %>% # calculate the residual
summarize(rmse = ___) # calculate rmse
# Plot actual outcome vs predictions (predictions on x-axis)
ggplot(bikesAugust, aes(x = ___, y = ___)) +
geom_point() +
geom_abline()