взаимодействие в упругой сети регрессии дает очень малые значения

Question

Этот код взаимодействия glmnet содержит пять очень малых значений коэффициента, есть ли ошибки в коде

    dat <- data.frame(train_y, train.data$N_MD_Pb, train.data$N_MD_Hg, train.data$N_MD_Cd)
    f <- as.formula(train_y~ train.data$N_MD_Pb:train.data$N_MD_Hg+train.data$N_MD_Cd
                +train.data$d_ma_age+train.data$d_b_sex+train.data$p_preg_parity+train.data$p_inc+0)
    x <- model.matrix(f,dat)
    y <- dat$train_y
    g <- glmnet(x, y, lambda=0.5)
    print(coef(g))