# create two binary relations among three elements
arr <- round( replace( array(runif(18), c(3,3,2)), array(runif(18),
c(3,3,2))>.5, 1 ) )
# compute the exposure measure first array in 'arr' is for attributes with adopter categories
arr |>
rel.sys(att = 1) |>
expos(classes = TRUE)
Run the code above in your browser using DataLab