findThoughts(gadarianFit, texts=gadarian$open.ended.response, topics=c(1,2), n=3)
#We can also use the plot command as a shorthand for the plotQuote function
thought <- findThoughts(gadarianFit, texts=gadarian$open.ended.response, topics=1, n=3)
plot(thought)Run the code above in your browser using DataLab