Algoritmo casi completo, falta el R