회귀분석으로 감정 사전 만들기

library(glmnet)

X <- as.matrix(dtm)
Y <- mobile$Sentiment

res.lm <- glmnet(X, Y, family = "binomial", lambda = 0) 

coef.lm <- coef(res.lm)[,1]
pos.lm <- coef.lm[coef.lm > 0]
neg.lm <- coef.lm[coef.lm < 0]
pos.lm <- sort(pos.lm, decreasing = T)
neg.lm <- sort(neg.lm, decreasing = F)