Вычисление среднего значения на конец сезона

Изучив тенденции в данных по команде Red Sox, вы хотите получить несколько полезных показателей. В этом упражнении вы вычислите среднее значение побед и поражений команды на конец каждого сезона. По аналогии с финансовым анализом это можно рассматривать как стоимость команды на момент закрытия сезона.

Для вычисления среднего значения побед и поражений на конец сезона потребуется объединить несколько команд из предыдущих глав.

Сначала определите победы на основе счёта каждой игры. Для этого используйте простую команду ifelse(), опираясь на то, что Red Sox выигрывают каждую игру, в которой набирают больше очков, чем команда соперника.

Затем определите дату последней игры каждого сезона с помощью endpoints(). Эта команда находит последнюю дату в объекте в пределах заданных периодов.

Наконец, чтобы вычислить среднее значение побед и поражений на конец каждого сезона, примените period.apply() к столбцу win_loss ваших данных, указав даты close в качестве индекса и mean в качестве функции.

Объект redsox_xts доступен в вашем рабочем пространстве.

Это упражнение является частью курса

Практический пример: анализ городских временных рядов в R

Посмотреть курс

Инструкции к упражнению

Используйте ifelse, чтобы вычислить win_loss: присвойте значение 1, если boston_score больше opponent_score, и 0 в остальных случаях.
Используйте endpoints(), чтобы определить дату последней игры каждого сезона. Поскольку бейсбольные сезоны укладываются в один год, задайте аргумент on равным "years" — это даст вам финальную игру каждого года. Сохраните эти даты как close.
Используйте period.apply(), чтобы вычислить среднее значение побед и поражений на конец сезона. Укажите столбец win_loss объекта redsox_xts, даты close в качестве периода и mean в качестве функции.

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

# 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[, "___"], ___, ___)

Редактировать и запускать код