ÎncepețiÎncepe gratuit

Calculează o medie de închidere

Acum că ai explorat câteva tendințe din datele despre Red Sox, vrei să obții câțiva indicatori utili. În acest exercițiu, vei calcula media victorii/înfrângeri a echipei la sfârșitul fiecărui sezon. În termeni financiari, poți privi asta ca pe valoarea echipei la închiderea sezonului.

Pentru a calcula media de închidere a victorii/înfrângeri, va trebui să combini câteva comenzi folosite în capitolele anterioare.

În primul rând, vei identifica victoriile pe baza scorului fiecărui meci. Poți face asta folosind o comandă simplă ifelse() și știind că Red Sox câștigă fiecare meci în care marchează mai multe puncte decât echipa adversă.

În al doilea rând, vei identifica data ultimului meci din fiecare sezon folosind endpoints(). Această comandă identifică ultima dată din obiectul tău în cadrul anumitor perioade.

În final, pentru a calcula media de închidere a victorii/înfrângeri pe fiecare sezon, folosește pur și simplu period.apply() pe coloana win_loss din datele tale, specificând datele close ca index și mean ca funcție.

Obiectul redsox_xts este disponibil în spațiul tău de lucru.

Acest exercițiu face parte din cursul

Studiu de caz: Analiza seriilor de timp pentru un oraș în R

Vezi cursul

Instrucțiuni pentru exercițiu

  • Folosește ifelse pentru a calcula win_loss, codificat cu 1 dacă boston_score este mai mare decât opponent_score și cu 0 în caz contrar.
  • Folosește endpoints() pentru a identifica data ultimului meci din fiecare sezon. Deoarece sezoanele de baseball sunt cuprinse într-un singur an, poți seta argumentul on la "years" pentru a obține ultimul meci din fiecare an. Salvează aceste date ca close.
  • Folosește period.apply() pentru a calcula media victorii/înfrângeri la închiderea sezonului. Specifică coloana win_loss din datele tale redsox_xts, datele close ca perioadă și mean ca funcție.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# 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[, "___"], ___, ___)
Editează și rulează codul