Дані про мотоциклетні аварії: нелінійний підхід

Тепер ви підженете нелінійну модель до тих самих даних mcycle, використовуючи функцію gam() з пакета mgcv.

Ця вправа є частиною курсу

Нелінійне моделювання за допомогою узагальнених адитивних моделей (GAM) в R

Завантажте пакет mgcv.
Підженіть модель до даних mcycle, де accel має гладкий, нелінійний зв'язок із times, використовуючи функцію gam().
Візуалізуйте підгонку моделі за допомогою наданого виклику plot().

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

# Load mgcv
___

# Fit the model
gam_mod <- gam(___ ~ s(___), data = mcycle)

# Plot the results
plot(gam_mod, residuals = TRUE, pch = 1)