릿지 회귀분석으로 감정 사전 만들기
릿지 회귀분석
set.seed(12345)
res.ridge <- cv.glmnet(X, Y, family = "binomial", alpha = 0,
nfolds = 4, type.measure = "class")
릿지 회귀분석 결과 그래프
plot(res.ridge)
plot(res.ridge$glmnet.fit, xvar = "lambda")
릿지 회귀분석 결과 회귀계수 정렬하기
coef.ridge <- coef(res.ridge, s = "lambda.min")[,1]
pos.ridge <- coef.ridge[coef.ridge > 0]
neg.ridge <- coef.ridge[coef.ridge < 0]
pos.ridge <- sort(pos.ridge, decreasing = T)
neg.ridge <- sort(neg.ridge, decreasing = F)