# NOT RUN {
M1 <- mkmSet(c(2,1))
#
# M1 is the multiset of subdivisions
# [
# [[1,1],[1,0]], 2],
# [[1,0],[1,0],[0,1]], 1),
# [[2,1]], 1],
# [[2,0],[0,1]], 1]
# ]
#
# Return the following set: [[1,1],[1,0],[0,1],[2,1],[2,0]]
m2Set( M1 )
# }
Run the code above in your browser using DataLab