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