made cluster.R