r - 如何使用 glmnet 规范拦截

Question

我知道 glmnet 默认情况下不会规范拦截，但我还是想这样做。我正在查看这个问题并尝试执行 whuber 建议的操作（添加一个常量变量并将参数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)