codigo R stable matching