modified:   TopicExtract/apcluster.R