```{r}
data.filtered <- reclamacoes_l %>% select(insatisfacao, avaliadores, comprimento_reclamacao, palavras, polaridade, polaridade_normalizada, lexico.dummy, erro, lexico)

lm <- lm(erro ~ ., data = data.filtered)
summary(lm)
```