el <- c("a", "b", "c", "d")
dom_list <- matrix(c(
"a", "b",
"c", "b",
"b", "d"
), ncol = 2, byrow = TRUE)
pos <- POSet(elements = el, dom = dom_list)
BLS <- BLSDominance(pos)
tnorm <- function(x,y){x*y}
tconorm <- function(x,y){x+y-x*y}
FinB <- FuzzyInBetweenness(BLS, norm=tnorm, conorm=tconorm, type="symmetric", "asymmetricLower")
Run the code above in your browser using DataLab