# NOT RUN {
pref <- matrix(c(
2, 4, 3, 4,
3, 3, 4, 2,
4, 2, 2, 1,
1, 1, 1, 3
), byrow = TRUE, nrow = 4)
pref
results <- toptrading(pref = pref)
results
toptrading.checkStability(pref = pref, matchings = results)
# }
Run the code above in your browser using DataLab