Сплошная выборка гиббсов в пакете R lda

Question

Я пытался изменить части пакета R lda, в частности функцию slda.em. В какой-то момент, функция C «collapsedGibbsSampler» вызывается в slda.collapsed.gibbs.sampler. Кто-нибудь есть код C для этой функции? Я посмотрел на GitHub Джонатана безрезультатно.

Большое спасибо .

Answer 1

Благодаря Jonathan Chang вот где код живет https://github.com/slycoder/R-lda-deprecated/blob/master/src/gibbs.c#L477