cleaned up clusterViz.R