"incorrect number of probabilities" error

[TommyJones]

From this build: https://ci.appveyor.com/project/TommyJones/tidylda/builds/31746411

"incorrect number of probabilities"

Error originates in tidylda:::recover_counts_from_probs

[TommyJones]

Since this function is called during all three of tidylda, refit.tidylda, and predict.tidylda, it can, at random, break the whole deal.

Yay.

[TommyJones]

Huzzah! A new error from this function

Error in sample.int(length(x), size, replace, prob) :
cannot take a sample larger than the population when 'replace = FALSE'

Code that mad it is below. Didn't set random seed, no guarantee of reproducibility.

tcm <- textmineR::CreateTcm(
    doc_vec = textmineR::nih_sample$ABSTRACT_TEXT,skipgram_window = 10
)

emb1 <- tidylda(
    dtm = tcm, 
    k = 100, iterations = 200, 
    burnin = 175, 
    beta = colSums(skee) / sum(skee) * 100, clac_r2 = TRUE)

[TommyJones]

Also this build https://travis-ci.com/github/TommyJones/tidylda/builds/156386620

[TommyJones]

95% sure that this fixed it

72310a3