tree <- xmlTreeParse(system.file("extdata",
"testFile.xml",
package="RXMCDA"),
useInternalNodes=TRUE)
critIDs <- getCriteriaIDs(tree)
pairsVals <- getCriteriaPairsIntervalValues(tree, critIDs[[1]],
mcdaConcept="interactionIntervals")
Run the code above in your browser using DataLab