(ws <- textmodel_wordscores(data_dfm_LBGexample, c(seq(-1.5, 1.5, .75), NA)))
predict(ws)
predict(ws, rescaling = "mv")
predict(ws, rescaling = "lbg")
# same as:
(ws2 <- textmodel_wordscores(data_dfm_LBGexample, c(seq(-1.5, 1.5, .75), NA)))
predict(ws2)
Run the code above in your browser using DataLab