## Not run:
# K<-c(5,10,15)
# temp<-textProcessor(documents=gadarian$open.ended.response,metadata=gadarian)
# out <- prepDocuments(temp$documents, temp$vocab, temp$meta)
# documents <- out$documents
# vocab <- out$vocab
# meta <- out$meta
# set.seed(02138)
# K<-c(5,10,15)
# kresult <- searchK(documents, vocab, K, prevalence=~treatment + s(pid_rep), data=meta)
#
# plot.searchK(kresult)
# ## End(Not run)
Run the code above in your browser using DataLab