Ekstrak pertandingan akhir pekan
Setelah menghitung beberapa indikator berguna dari data Red Sox Anda, kini saatnya meninjau dan menelusuri data dari tim olahraga Boston lainnya. Secara khusus, Anda telah mengumpulkan data tambahan tentang New England Patriots (sepak bola Amerika), Boston Bruins (hoki es), dan Boston Celtics (bola basket). Data untuk tim-tim ini, bersama dengan data redsox Anda, telah digabungkan ke dalam satu objek xts, sports, yang kini memuat data semua pertandingan yang dimainkan oleh tim olahraga area Boston dari 2010 hingga 2015.
Sebelum melakukan analisis lebih lanjut, Anda ingin memperhalus data menjadi beberapa subset yang berpotensi bermanfaat. Secara khusus, akan membantu jika berfokus hanya pada pertandingan akhir pekan yang melibatkan tim olahraga Boston.
Untuk mengidentifikasi pertandingan berdasarkan hari dalam seminggu, Anda harus menggunakan perintah .indexwday(), yang memberi tahu hari dalam seminggu dari setiap observasi dalam objek xts Anda. Nilai ini berkisar dari 0–6, dengan Sunday sama dengan 0 dan Saturday sama dengan 6.
Latihan ini adalah bagian dari kursus
Studi Kasus: Menganalisis Data Deret Waktu Kota di R
Petunjuk latihan
- Berlatih dengan perintah pengindeksan xts dengan mengekstrak hari dalam seminggu dari setiap observasi pada data
sportsAnda menggunakan.indexwday(). Simpan nilai ini keweekdaydan tampilkan beberapa baris pertama objekweekdaytersebut menggunakanhead(). - Buat indeks observasi akhir pekan dengan menggabungkan perintah
which()dengan dua pemanggilan.indexwday(). Tujuannya adalah mengekstrak hanya tanggal yang jatuh pada Saturday atau Sunday. Simpan indeks ini sebagaiweekend. - Hasilkan objek xts baru (
weekend_games) yang hanya memuat pertandingan yang jatuh pada akhir pekan. Gunakanhead()untuk melihat beberapa baris pertama dari objekweekend_gamesbaru Anda.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Extract the day of the week of each observation
weekday <- .indexwday(___)
head(___)
# Generate an index of weekend dates
weekend <- which(.indexwday(___) == ___ | .indexwday(___) == ___)
# Subset only weekend games
weekend_games <- sports[___]
head(___)