updated _cluster.R