tests/getCriteriaIntervalValues.R

library(RXMCDA)

tree <- xmlTreeParse(system.file("extdata","testFile.xml",package="RXMCDA"), useInternalNodes=TRUE)

critIDs <- getCriteriaIDs(tree)

intVals <- getCriteriaIntervalValues(tree, critIDs[[1]])

stopifnot(all.equal(intVals[[1]], t(as.matrix(c(5,0.5,1)))))
paterijk/RXMCDA documentation built on May 24, 2019, 6:18 p.m.