Update consenso.R