tests/getAlternativesValues.R

library(RXMCDA)

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

altIDs <- getAlternativesIDs(tree)

altVals <- getAlternativesValues(tree, altIDs[[1]])

stopifnot(all.equal(dim(altVals[[1]]), c(15,2)))

Try the RXMCDA package in your browser

Any scripts or data that you put into this service are public.

RXMCDA documentation built on May 1, 2019, 10:23 p.m.