小弟最近在使用R语言中的BTM包进行短文本的主题模型建模，但是无法确定最佳主题数。查阅了一些文献发现使用困惑度Perplexity这个指标来判断模型的拟合度。但是BTM包中并没有提供相关的函数，请问各位大佬有没有对这方面有所了解的？如果能提供现成的代码小弟将不胜感激，可以提供一定的报酬。Perplexity相关的原理和数学公式在附件的2.1.2中。