Переменные коэффициенты в исходной шкале. Вы можете посмотреть на них, если они представлены в масштабированных предикторах, вряд ли вы увидите 1000+ для 1 коэффициента (значит, вам нужно увеличить 1000 * sd !!) и -17 для другого.
coef(fit$finalModel, fit$bestTune$lambda)
7 x 1 sparse Matrix of class "dgCMatrix"
1
(Intercept) 1717.36000
carat 1092.16045
depth -17.86985
cut.L 51.31784
cut.Q .
cut.C .
cut^4 .
Один из способов убедиться в этом - проверить установленные значения:
preProcValues <- preProcess(diamonds[1:200,], method = c("center", "scale"))
pred_scaled = predict(fit,predict(preProcValues,diamonds[1:200,]))
identical(pred_scaled,fitted(fit))
[1] FALSE
pred_orig = predict(fit,diamonds[1:200,])
identical(pred_orig,fitted(fit))
[1] TRUE