Update consenso.R

Ponderando por TSS+1