library(ror)
## Example with 3 alternatives and 3 criteria
performances <- matrix(c(1.0, 1.0, 1.0, 2.0, 1.0, 1.1, 2.0, 0.5, 3.0), ncol=3, byrow=TRUE)
## a3 > a2 (strongly preferred)
strongPrefs <- matrix(c(3, 2), ncol=2, byrow=TRUE)
## Strong necessary relation
strongnec <- utagms.strong.necessary(performances, strongPrefs)
## Sanity check, the relation have a3 >^N a2
stopifnot(strongnec[3,2] == TRUE)
## Not run:
# ## Plot the relation
# plot(strongnec)
# ## End(Not run)
Run the code above in your browser using DataLab