Я пытаюсь приспособить эластичную сеть, используя мои данные, извините, я не могу поделиться данными, поскольку это данные клиента. Поэтому я написал следующий код
model <- train(
LnSales_x ~., data = dataReg, method = "glmnet",
trControl = trainControl("cv", number = 10),
tuneLength = 10
)
model$bestTune
coeff=coef(model$finalModel, model$bestTune$lambda)
Это дает мне коэффициент как
(Intercept) 12.37486303
LnPrice_x .
LnPrice_y .
LnPrice_x_comp1 .
LnPrice_x_comp2 .
LnPrice_x_comp3 0.07760043
LnPrice_x_comp4 -0.02451433
& модель $ bestTune возвращает
alpha lambda
100 1 0.01407534
После этого я изменил tuneLength = 100, и моя модель $ bestTune возвращается
alpha lambda
6264 0.8818182 0.02968187
Это дает мне коэффициент как
(Intercept) 12.55749
LnPrice_x .
LnPrice_y .
LnPrice_x_comp1 .
LnPrice_x_comp2 .
LnPrice_x_comp3 .
LnPrice_x_comp4 .
Можете ли вы предложить мне, как мне выбрать длину мелодии?