IniziaInizia gratis

Calcola una media di chiusura

Ora che hai esplorato alcune tendenze nei dati dei Red Sox, vuoi creare indicatori utili. In questo esercizio calcolerai la media vittorie/sconfitte della squadra alla fine di ogni stagione. In termini finanziari, puoi vederla come il valore della squadra alla chiusura della stagione.

Per calcolare una media di chiusura vittorie/sconfitte, dovrai combinare alcuni comandi usati nei capitoli precedenti.

Per prima cosa, identificherai le vittorie in base al punteggio di ogni partita. Puoi farlo con un semplice comando ifelse() e sapendo che i Red Sox vincono ogni partita in cui segnano più punti della squadra avversaria.

Poi, identificherai la data dell’ultima partita di ogni stagione usando endpoints(). Questo comando individua l’ultima data presente nel tuo oggetto all’interno di determinati periodi.

Infine, per calcolare la media di chiusura vittorie/sconfitte di ogni stagione, usa semplicemente period.apply() sulla colonna win_loss dei tuoi dati, specificando le date di close come indice e mean come funzione.

L’oggetto redsox_xts è disponibile nel tuo workspace.

Questo esercizio fa parte del corso

Caso di studio: analisi di serie temporali cittadine in R

Visualizza il corso

Istruzioni dell'esercizio

  • Usa ifelse per calcolare win_loss, codificata come 1 se boston_score è maggiore di opponent_score e 0 altrimenti.
  • Usa endpoints() per identificare la data dell’ultima partita di ogni stagione. Poiché le stagioni di baseball sono contenute in un singolo anno, puoi impostare l’argomento on su "years" per ottenere l’ultima partita di ogni anno. Salva queste date come close.
  • Usa period.apply() per calcolare la media vittorie/sconfitte alla chiusura della stagione. Specifica la colonna win_loss dei tuoi dati redsox_xts, le date close come periodo e mean come funzione.

Esercizio pratico interattivo

Prova a risolvere questo esercizio completando il codice di esempio.

# 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[, "___"], ___, ___)
Modifica ed esegui il codice