Различия в результатах в квадрате (lm $ результаты против сводных (lm) $ r.squared)

Question

Я работаю с набором данных, в котором я создал линейную модель и применил 10-кратную перекрестную проверку с использованием линейной регрессии.

set.seed(222) 
lm <- train(rt ~., 
            train, 
            method = 'lm',
            trControl = custom)
lm$results
summary(lm)$r.squared

Однако, когда я сравниваю Rsquared с 'lm $ results' и «summary (lm) $ r.squared», я получаю 2 разных значения. Хотите знать, почему это так?