MulaiMulai sekarang secara gratis

Hitung rata-rata penutupan

Setelah menelusuri beberapa tren pada data Red Sox, Anda ingin menghasilkan indikator yang bermanfaat. Pada latihan ini, Anda akan menghitung rata-rata menang/kalah tim pada akhir setiap musim. Dalam istilah finansial, Anda dapat menganggap ini sebagai nilai tim pada saat penutupan musim.

Untuk menghitung rata-rata menang/kalah penutupan, Anda perlu menggabungkan beberapa perintah yang digunakan di bab sebelumnya.

Pertama, Anda akan mengidentifikasi kemenangan berdasarkan skor setiap pertandingan. Anda dapat melakukannya dengan perintah ifelse() sederhana dan pengetahuan bahwa Red Sox memenangkan setiap pertandingan ketika mereka mencetak poin lebih banyak daripada tim lawan.

Kedua, Anda akan mengidentifikasi tanggal pertandingan terakhir di setiap musim menggunakan endpoints(). Perintah ini mengidentifikasi tanggal terakhir dalam objek Anda pada periode tertentu.

Terakhir, untuk menghitung rata-rata menang/kalah penutupan setiap musim, cukup gunakan period.apply() pada kolom win_loss dari data Anda, dengan menentukan tanggal close sebagai indeks, dan mean sebagai fungsinya.

Objek redsox_xts tersedia di ruang kerja Anda.

Latihan ini adalah bagian dari kursus

Studi Kasus: Menganalisis Data Deret Waktu Kota di R

Lihat Kursus

Petunjuk latihan

  • Gunakan ifelse untuk menghitung win_loss, yang dikodekan sebagai 1 jika boston_score lebih besar daripada opponent_score dan 0 jika tidak.
  • Gunakan endpoints() untuk mengidentifikasi tanggal pertandingan terakhir di setiap musim. Karena musim bisbol berada dalam satu tahun kalender, Anda dapat menentukan argumen on ke "years" untuk memperoleh pertandingan terakhir tiap tahun. Simpan tanggal ini sebagai close.
  • Gunakan period.apply() untuk menghitung rata-rata menang/kalah pada penutupan musim. Tentukan kolom win_loss dari data redsox_xts Anda, tanggal close sebagai periodenya, dan mean sebagai fungsinya.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

# Generate a new variable coding for red sox wins
redsox_xts$win_loss <- ifelse(redsox_xts$___ > redsox_xts$___, 1, 0)

# Identify the date of the last game each season
close <- endpoints(___, on = "___")

# Calculate average win/loss record at the end of each season
period.apply(redsox_xts[, "___"], ___, ___)
Edit dan Jalankan Kode