Приведение каждой линейной регрессионной модели к аккуратному виду

Вы уже выполнили линейную регрессию для каждого вложенного набора данных и сохранили линейные модели в столбце-списке model. Однако прежде чем объединить модели, необходимо привести каждую из них к аккуратному виду в виде таблицы коэффициентов. Для этого снова понадобится функция map(), а также функция tidy() из пакета broom.

Напомним, что в map() можно просто передать функцию (например, map(models, tidy)), чтобы применить её к каждому элементу списка.

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

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

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

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

Загрузите пакет broom.
Используйте функцию map(), чтобы применить функцию tidy() к каждой линейной модели в столбце model, создав новый столбец с именем tidied.

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

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

# Load the broom package


# Add another mutate that applies tidy() to each model
by_year_country %>%
  nest(-country) %>%
  mutate(model = map(data, ~ lm(percent_yes ~ year, data = .)))

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