Как упорядочить перехват с 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)