Update summarize.top.clusters.R