tests/getPerformanceTables.R

library(RXMCDA)

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

tables <- getPerformanceTables(tree)

stopifnot(all.equal(dim(tables[[1]]), c(15,5)))
paterijk/RXMCDA documentation built on May 24, 2019, 6:18 p.m.