with Wordscores' predicted object when se.fit = TRUE.
> ws <- textmodel_wordscores(data_dfm_lbgexample, c(seq(-1.5, 1.5, .75), NA))
> coef(ws)
A B C D E F G H I J
-1.5000000 -1.5000000 -1.5000000 -1.5000000 -1.5000000 -1.4812500 -1.4809322 -1.4519231 -1.4083333 -1.3232984
K L M N O P Q R S T
-1.1846154 -1.0369898 -0.8805970 -0.7500000 -0.6194030 -0.4507576 -0.2992424 -0.1305970 0.0000000 0.1305970
U V W X Y Z ZA ZB ZC ZD
0.2992424 0.4507576 0.6194030 0.7500000 0.8805970 1.0369898 1.1846154 1.3232984 1.4083333 1.4519231
ZE ZF ZG ZH ZI ZJ ZK
1.4809322 1.4812500 1.5000000 1.5000000 1.5000000 1.5000000 1.5000000
> pred <- predict(ws, se.fit = TRUE)
> textplot_scale1d(pred)
Show Traceback
Rerun with Debug
Error: length(doclabels) == length(x) is not TRUE 
with Wordscores' predicted object when
se.fit = TRUE.