tree <- xmlTreeParse(system.file("extdata",
"testFile.xml",
package="RXMCDA"),
useInternalNodes=TRUE)
alternativesIDs <- getAlternativesIDs(tree)
categoriesIDs <- getCategoriesIDs(tree)
altAff <- getAlternativesAffectations(tree,
alternativesIDs[[1]], categoriesIDs[[1]])
Run the code above in your browser using DataLab