Использование линейной регрессии (lm) в R-каретке, как заставить перехват через 0?

Question

Я пытаюсь использовать R caret для выполнения перекрестной проверки моих моделей линейной регрессии. В некоторых случаях, я хочу, чтобы заставить перехватывать через 0. Я попытался следующий, используя стандартный синтаксис ого:

regressControl <- trainControl(method="repeatedcv", 
         number = 4, 
         repeats = 5 
         )      

regress   <- train(y ~ 0 + x, 
       data = myData, 
       method = "lm", 
       trControl = regressControl) 

Call: 
lm(formula = .outcome ~ ., data = dat) 

Coefficients: 
(Intercept)  x 
-0.0009585 0.0033794 ` 

Этого синтаксис, кажется, работает со стандартной функцией «ой», но не в пакете каретки. Какие-либо предложения?

test <- lm(y ~ 0 + x, 
     data = myData) 


Call: 
lm(formula = y ~ 0 + x, data = myData) 

Coefficients: 
x 
0.003079 

Answer 1

Вы можете воспользоваться параметром tuneGrid в caret::train.

regressControl <- trainControl(method="repeatedcv", 
        number = 4, 
        repeats = 5 
        ) 

regress <- train(mpg ~ hp, 
      data = mtcars, 
      method = "lm", 
      trControl = regressControl, 
      tuneGrid = expand.grid(intercept = FALSE)) 

Используйте getModelInfo("lm", regex = TRUE)[[1]]$param, чтобы увидеть все вещи, которые вы могли бы подправили в tuneGrid (в случае лм, единственным параметром настройки является перехват). Глупо, что вы не можете просто полагаться на синтаксис formula, но, увы.