Обучение с учителем в R: регрессия
Nina Zumel and John Mount
Win-Vector, LLC
$$ y \sim b0 + s1(x1) + s2(x2) + .... $$

gam(formula, family, data)
family:
Лучше подходит для больших наборов данных
anx ~ s(hassles)
s() указывает, что переменная должна быть нелинейнойs() с непрерывными переменными
| Модель | RMSE (кросс-вал.) | $R^2$ (обучение) |
|---|---|---|
| Линейная ($hassles$) | 7,69 | 0,53 |
| Квадратичная ($hassles^2$) | 6,89 | 0,63 |
| Кубическая ($hassles^3$) | 6,70 | 0,65 |
model <- gam(
anx ~ s(hassles),
data = hassleframe,
family = gaussian
)
summary(model)
...
R-sq.(adj) = 0.619 Deviance explained = 64.1%
GCV = 49.132 Scale est. = 45.153 n = 40
plot(model)

Значения $y$: predict(model, type = "terms")
predict(model, newdata = hassleframe, type = "response")

Знать правильное преобразование предпочтительнее, однако GAM полезен, когда оно неизвестно
| Модель | RMSE (кросс-вал.) | $R^2$ (обучение) |
|---|---|---|
| Линейная ($hassles$) | 7,69 | 0,53 |
| Квадратичная ($hassles^2$) | 6,89 | 0,63 |
| Кубическая ($hassles^3$) | 6,70 | 0,65 |
| GAM | 7,06 | 0,64 |
Обучение с учителем в R: регрессия