Mulai sekarangMulai gratis

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 merupakan bagian dari kursus

Supervised Learning di R: Regresi

Lihat Kursus

Instruksi latihan

  • Gunakan predict untuk memprediksi jumlah sepeda per jam pada data bikesAugust. Tetapkan prediksi ke kolom bikesAugust$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 langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# 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")
Edit dan Jalankan Kode