update to topic modeling script in R