# NOT RUN {
# Load a pre-formatted dtm and topic model
data(nih_sample_topic_model)
# Make a phi_prime matrix, P(topic|words)
phi_prime <- GetPhiPrime(phi = nih_sample_topic_model$phi,
theta = nih_sample_topic_model$theta)
# }
Run the code above in your browser using DataLab