Я выполнил регрессию гребня, используя следующий код:
# Download and clean data
library(ISLR)
Hitters.data <- Hitters
Hitters.data <- na.omit(Hitters.data)
Hitters.data$League <- as.numeric(Hitters.data$League == "A")
Hitters.data$Division <- as.numeric(Hitters.data$Division == "E")
Hitters.data$ NewLeague <- as.numeric(Hitters.data$ NewLeague == "A")
# Run ridge regression
library(glmnet)
x <-as.matrix(Hitters.data[,-which(colnames(Hitters.data)=="HmRun")])
y <- Hitters.data$HmRun
ridge.model.best = glmnet(x,y,alpha=0,lambda=0.814517)
Я хочу напечатать результаты регрессии, используя пакет stargazer, но я не уверен, как.
Любой совет будет высоко ценится.