tests/getCategoriesValues.R

library(RXMCDA)

tree <- xmlTreeParse(system.file("extdata", "testFile.xml", package="RXMCDA"), useInternalNodes=TRUE)
categoriesIDs <- getCategoriesIDs(tree)
categoriesValues <- getCategoriesValues(tree, categoriesIDs[[1]])

stopifnot(all.equal(categoriesValues[[1]], matrix(data = c(1, 2, 100, -100), ncol = 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.