Вычисление вероятностей

Фрейм данных where9am содержит данные за 91 день (тринадцать недель): каждый день Бретт фиксировал своё location в 9 утра, а также указывал, был ли этот день выходным или рабочим (daytype).

С помощью формулы условной вероятности, приведённой ниже, можно вычислить вероятность того, что Бретт находится в офисе, при условии что день является рабочим.

$$ P(A|B) = \frac{P(A \text{ and } B)}{P(B)} $$

Подобные вычисления лежат в основе модели предсказания местоположения на основе наивного Байеса, которую вы разработаете в следующих упражнениях.

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

Обучение с учителем в R: классификация

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

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

Найдите P(office), используя nrow() и subset() для подсчёта строк в наборе данных, и сохраните результат в переменную p_A.
Найдите P(weekday), снова используя nrow() и subset(), и сохраните результат в переменную p_B.
Используйте nrow() и subset() ещё раз, чтобы найти P(office and weekday). Сохраните результат в переменную p_AB.
Вычислите P(office | weekday) и сохраните результат в переменную p_A_given_B.
Выведите значение p_A_given_B.

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

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

# Compute P(A) 
p_A <- ___

# Compute P(B)
p_B <- ___

# Compute the observed P(A and B)
p_AB <- ___

# Compute P(A | B) and print its value
p_A_given_B <- ___
___

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