Update Auxiliar.R

Get the data ready for the algorythm