Skip to content

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Gale-Shapley Algorithm
# Gale-Shapley matching
# From http://plausibel.blogspot.com/2012/01/illustrating-deferred-acceptance.html
doInstall <- TRUE # Change to FALSE if you don't want packages installed.
toInstall <- c("devtools", "animation")
if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")}
lapply(toInstall, library, character.only = TRUE)
# Source the daa() function:
source_gist("1628636")
nOptions <- 15 # Although these matrices don't have to have the same dims
mPrefs <- t(replicate(nOptions, sample(1:nOptions, nOptions)))
wPrefs <- replicate(nOptions, sample(1:nOptions, nOptions))
heatmap(mPrefs, Rowv = NA, Colv = NA)
heatmap(wPrefs, Rowv = NA, Colv = NA)
galeShapleyResult <- daa(nMen = nOptions,
nWomen = nOptions,
m.prefs = mPrefs,
w.prefs = wPrefs)
print(galeShapleyResult)
matchMatrix <- 1*(matrix(rep(galeShapleyResult$matches, each=nOptions),
nrow=nOptions,
ncol=nOptions)==matrix(data=1:nOptions,
nrow=nOptions,ncol=nOptions,byrow=F))
heatmap(1-matchMatrix, Rowv = NA, Colv = NA)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.