Я пытаюсь повторить оценку gam()
на этой странице , но обнаружена следующая ошибка
require(ISLR)
attach(Wage)
gam1 <- gam(wage ~ s(age, df=6) + s(year, df=6) + education, data = Wage)
Error in terms.formula(reformulate(term[i])) :
invalid model formula in ExtractVars
Это странно, потому что если я использую ту же самую оценку gam()
, следуя коду на этой странице , это работает. Должно быть, что-то не так с моими настройками, но на вершине головы я не мог понять.
Будет очень признателен, если кто-то сможет указать на мою ошибку.
library(ggplot2)
theme_set(theme_bw())
library(dplyr)
library(mgcv)
library(tidymv)
library(mgcv)
set.seed(10)
data <- gamSim(4, 400)
model <- gam(
y ~
fac +
s(x2, by = fac),
data = data
)
summary(model)