# create two binary relations among three elements
arr <- round( replace( array( runif(18), c(3 ,3, 2) ), array( runif(18),
c(3, 3, 2) ) > .9, 3 ) )
# establish system of strong bonds
arr |> rel.sys(bonds = "strong")
# first array is for attributes
arr |> rel.sys(att = 1)
# select first node
arr |> rel.sys(sel = 1)
Run the code above in your browser using DataLab