Update simulacaocluster.R