Update cluster.r