如何使用glmnet规范拦截

Question

我知道glmnet默认情况下不会对拦截进行正则化，但无论如何我还是想这样做。 我正在看这个问题，并尝试做一些令人费解的建议（添加一个常量变量并将参数intercept设为FALSE ），但是结果glmnet也不适合添加的常量。

library(dplyr)
library(glmnet)

X <-
  mtcars %>%
  mutate(intercept = 1) %>%
  select(-c(mpg)) %>%
  as.matrix()

y <-
  mtcars %>%
  select(mpg) %>%
  as.matrix()

model <- glmnet(X, y, intercept = FALSE, alpha = 0, lambda = 0)

coef(model)