## Not run: ------------------------------------
# data(open.question)
# res.TD<-TextData(open.question,var.text=c(9,10), var.agg="Age_Group", Fmin=10, Dmin=10,
# stop.word.tm=TRUE)
# res.LexCA<-LexCA(res.TD, graph=FALSE)
# res.chcca<-LexCHCca(res.LexCA, nb.clust=4, min=3, graph=FALSE)
# plot(res.chc, choice="tree")
# plot(res.chc, choice="map")
# plot(res.chc, choice="bar", max.plot=5)
## ---------------------------------------------
Run the code above in your browser using DataLab