Dự đoán số lượt thuê xe đạp với mô hình random forest
Trong bài tập này, bạn sẽ dùng mô hình đã huấn luyện ở bài trước để dự đoán số lượt thuê xe đạp trong tháng 8.
Hàm predict() (docs) cho một mô hình ranger trả về một danh sách. Một trong các phần tử của danh sách này là predictions, một vector các giá trị dự đoán. Bạn có thể truy cập predictions bằng cú pháp $ để lấy phần tử có tên trong danh sách:
predict(model, data)$predictions
Mô hình bike_model_rf và dữ liệu bikesAugust (dùng để đánh giá) đã được nạp sẵn.
Bài tập này là một phần của khóa học
Học có giám sát với R: Hồi quy
Hướng dẫn bài tập
- Gọi
predict()trênbikesAugustđể dự đoán số lượt thuê xe đạp trong tháng 8 (cnt). Thêm các giá trị dự đoán vàobikesAugustdưới dạng cộtpred. - Điền vào chỗ trống để tính căn sai số bình phương trung bình (RMSE) của các dự đoán.
- Mô hình poisson bạn đã xây dựng cho bộ dữ liệu này cho RMSE khoảng 112.6. Mô hình hiện tại so sánh thế nào?
- Điền vào chỗ trống để vẽ biểu đồ số lượt thuê thực tế (
cnt) so với giá trị dự đoán (predtrên trục x).
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# 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()