Gale-Shapley Deferred Acceptance in R