elems <- c("a", "b", "c", "d", "e")
doms <- matrix(c(
"a", "b",
"c", "b",
"c", "e",
"b", "d",
"a", "d",
"c", "d",
"a", "a",
"b", "b",
"c", "c",
"d", "d"
), ncol = 2, byrow = TRUE)
pos <- POSet(elements = elems, dom = doms)
glb<-POSetMeet(pos, c("b", "e"))
Run the code above in your browser using DataLab