Prediksi penyewaan sepeda pada data baru
Dalam latihan ini, Anda akan menggunakan model yang Anda bangun pada latihan sebelumnya untuk membuat prediksi untuk bulan Agustus. Himpunan data bikesAugust memiliki kolom yang sama dengan bikesJuly.
Ingat bahwa Anda harus menentukan type = "response" dengan predict() (docs) saat memprediksi jumlah dari model glm poisson atau quasipoisson.
Model bike_model dan data frame bikesAugust telah dimuat sebelumnya.
Latihan ini adalah bagian dari kursus
Supervised Learning di R: Regresi
Petunjuk latihan
- Gunakan
predictuntuk memprediksi jumlah sepeda per jam pada databikesAugust. Tetapkan prediksi ke kolombikesAugust$pred. - Lengkapi bagian yang kosong untuk mendapatkan RMSE dari prediksi pada data Agustus.
- Lengkapi bagian yang kosong untuk menghasilkan plot antara prediksi dan jumlah aktual.
- Apakah ada prediksi yang tampak bernilai negatif?
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# bikesAugust is available
str(bikesAugust)
# bike_model is available
summary(bike_model)
# Make predictions on August data
bikesAugust$pred <- ___
# Calculate the RMSE
bikesAugust %>%
mutate(residual = ___) %>%
summarize(rmse = ___)
# Plot predictions vs cnt (pred on x-axis)
ggplot(bikesAugust, aes(x = ___, y = ___)) +
geom_point() +
geom_abline(color = "darkblue")