generate_object = function(decs, rules,type, TopNodes, FiltrParam, NodeColorType, EdgeColor, EdgeWidth, NewDataNodes, NewDataEdges){
AllNets = NULL
Net = NULL
for (i in decs){
#i = "control"
recRulesDecs = NULL
#rules for decision
RulesDec = rules[which(rules$decision ==i),]
#generate nodes and edges for decision
RulesSetSize=dim(RulesDec)[1]
if(RulesSetSize != 0){
Net = generateNet(i, RulesDec, type, RulesSetSize, TopNodes,FiltrParam, NodeColorType = NodeColorType,EdgeColor, EdgeWidth, NewDataNodes, NewDataEdges)
}else{
Net = list(nodes = NULL, edges = NULL, NodeRulesSetPerNode = NULL)
}
AllNets[[i]] = Net
Net = NULL
}
if(dim(rules)[1] != 0){
AllNets[['all']] = generateNet('all', rules, type, dim(recRulesFiltr)[1], TopNodes, FiltrParam, NodeColorType = NodeColorType, EdgeColor, EdgeWidth,
NewDataNodes, NewDataEdges)
}else{
AllNets[['all']] = list(nodes = NULL, edges = NULL, NodeRulesSetPerNode = NULL)
}
return(AllNets)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.