# create the data: 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 ) )
# first array in 'arr' is for attributes
rs <- rel.sys(arr, att = 1)
# compute the exposure measure for an attribute type with adopter categories
expos(rs, classes = TRUE)
Run the code above in your browser using DataLab