modif bug cluster.R