Se corrigio para que funcione con el R