stable matching em R