Description Usage Arguments Value Examples
Extracts <alternativesComparisons>
from an XML tree written according to the XMCDA
standard and stores the IDs of the concerned alternatives.
1 | getAlternativesComparisonsLabels(tree, altIDs=NULL, mcdaConcept = NULL)
|
tree |
Object containing the |
altIDs |
A vector containing the IDs of the alternatives to be considered for the extractions. |
mcdaConcept |
A string containing the specific |
The function returns a list structured as follows:
– |
The first elements contain the |
status |
Either OK if all the |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | tree = newXMLDoc()
newXMLNode("xmcda:XMCDA",
namespace = c("xsi" = "http://www.w3.org/2001/XMLSchema-instance",
"xmcda" = "http://www.decision-deck.org/2009/XMCDA-2.1.0"),
parent=tree)
root<-getNodeSet(tree, "/xmcda:XMCDA")
aC<-newXMLNode("alternativesComparisons", parent=root[[1]], namespace=c())
pairs<-newXMLNode("pairs", parent=aC, namespace=c())
pair<-newXMLNode("pair", parent=pairs, namespace=c())
initial<-newXMLNode("initial", parent=pair, namespace=c())
newXMLNode("alternativeID", "a01", parent=initial, namespace=c())
terminal<-newXMLNode("terminal", parent=pair, namespace=c())
newXMLNode("alternativeID", "a02", parent=terminal, namespace=c())
value<-newXMLNode("value", parent=pair, namespace=c())
newXMLNode("real", "0.5", parent=value, namespace=c())
alternativesIDs <- c("a01","a02")
y<-getNodeSet(tree,"//alternativesComparisons")
x<-getAlternativesComparisonsLabels(y[[1]], alternativesIDs)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.