a simple R implementation of variational inference for LDA