# NOT RUN {
# use Lenihan for govt class and Bruton for opposition
quanteda::docvars(data_corpus_irishbudget2010, "govtopp") <-
c("Govt", "Opp", rep(NA, 12))
dfmat <- quanteda::dfm(data_corpus_irishbudget2010)
tmod <- textmodel_svmlin(dfmat, y = quanteda::docvars(dfmat, "govtopp"),
pos_frac = 5/14)
predict(tmod)
predict(textmodel_svmlin(dfmat, y = quanteda::docvars(dfmat, "govtopp"),
intercept = FALSE, pos_frac = 5/14))
# }
Run the code above in your browser using DataCamp Workspace