Description Usage Arguments References Examples
View source: R/strength.viewer.R
Show the strength of the probabilistic relationships expressed by the arcs of a Bayesian network, and use model averaging to build a network containing only the significant arcs.
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 29 30 31 32 33 34 35 36 37  | strength.viewer(
  bayesianNetwork,
  bayesianNetwork.boot.strength,
  bayesianNetwork.background = NULL,
  bayesianNetwork.arc.strength.threshold.expression = NULL,
  bayesianNetwork.arc.strength.threshold.expression.color = NULL,
  bayesianNetwork.arc.strength.threshold.alternative.color = NULL,
  bayesianNetwork.arc.strength.label = FALSE,
  bayesianNetwork.arc.strength.label.prefix = "",
  bayesianNetwork.arc.strength.label.color = NULL,
  bayesianNetwork.arc.strength.tooltip = FALSE,
  bayesianNetwork.edge.scale.min = 1,
  bayesianNetwork.edge.scale.max = 5,
  bayesianNetwork.edge.scale.label.min = 14,
  bayesianNetwork.edge.scale.label.max = 14,
  bayesianNetwork.title = "",
  bayesianNetwork.subtitle = "",
  bayesianNetwork.footer = "",
  bayesianNetwork.enabled.interactive.mode = FALSE,
  bayesianNetwork.layout = "default",
  bayesianNetwork.width = "100%",
  bayesianNetwork.height = "500px",
  node.shape = NULL,
  node.label.prefix = "",
  node.colors = list(),
  node.font = list(),
  node.size = 10,
  edges.smooth = TRUE,
  edges.dashes = FALSE,
  edges.colors = list(),
  edges.width = 1,
  options.highlightNearest = TRUE,
  options.nodesIdSelection = FALSE,
  clusters.legend.title = "",
  clusters.legend.options = list(),
  clusters = list()
)
 | 
bayesianNetwork | 
 A Bayesian Network structure from Averaged Network  | 
bayesianNetwork.boot.strength | 
 A nonparametric bootstrap to assess arc strength and direction  | 
bayesianNetwork.background | 
 Bayesian network background  | 
bayesianNetwork.arc.strength.threshold.expression | 
 Logical expression of the force threshold of the arcs of the Bayesian network  | 
bayesianNetwork.arc.strength.threshold.expression.color | 
 Color applied to logical expression of the force threshold of the arcs of the Bayesian network  | 
bayesianNetwork.arc.strength.threshold.alternative.color | 
 Alternative color to logical expression of the force threshold of the arcs of the Bayesian network  | 
bayesianNetwork.arc.strength.label | 
 Enable Bayesian Network arc strength label  | 
bayesianNetwork.arc.strength.label.prefix | 
 Include Bayesian Network arc strength label prefix  | 
bayesianNetwork.arc.strength.label.color | 
 Set Bayesian Network arc strength label color  | 
bayesianNetwork.arc.strength.tooltip | 
 Enable Bayesian Network arc strength tooltip  | 
bayesianNetwork.edge.scale.min | 
 Set bayesian Network edge scale minimum  | 
bayesianNetwork.edge.scale.max | 
 Set bayesian Network edge scale maximum  | 
bayesianNetwork.edge.scale.label.min | 
 Set bayesian Network edge scale label minimum  | 
bayesianNetwork.edge.scale.label.max | 
 Set bayesian Network edge scale label maximum  | 
bayesianNetwork.title | 
 : String. Bayesian Network title  | 
bayesianNetwork.subtitle | 
 : String. Bayesian Network subtitle  | 
bayesianNetwork.footer | 
 : String. Bayesian Network footer  | 
bayesianNetwork.enabled.interactive.mode | 
 : Boolean. Enabled interactive viewer mode.  | 
bayesianNetwork.layout | 
 : String. A layout of a Bayesian Network 
  | 
bayesianNetwork.width | 
 : String. Bayesian Network width  | 
bayesianNetwork.height | 
 : String. Bayesian Network height  | 
node.shape | 
 : String. A node shape of a Bayesian Network 
  | 
node.label.prefix | 
 : String. Adds a prefix to the node label  | 
node.colors | 
 : String | named list. Color for the node. Can be 'rgba(120,32,14,1)', '#97C2FC' (hexa notation on 7 char without transparency) or 'red'. Can be just one color, or a list with several elements: 
  | 
node.font | 
 Node Font : Array. Example list(color = "black", face="Arial")  | 
node.size | 
 Integer. Node Size.  | 
edges.smooth | 
 : Boolean. When true, the edge is drawn as a dynamic quadratic bezier curve.  | 
edges.dashes | 
 : Array or Boolean. Default to false. When true, the edge will be drawn as a dashed line.  | 
edges.colors | 
 : Named list or String. Default to named list. Color information of the edge in every situation. Can be 'rgba(120,32,14,1)', '#97C2FC' (hexa notation on 7 char without transparency) or 'red'. 
  | 
edges.width | 
 : Number. Default to 1. Sets edge width.  | 
options.highlightNearest | 
 : Boolean. Default to true. Highlight nearest when clicking a node.  | 
options.nodesIdSelection | 
 : Boolean. Default to false. Add an id node selection creating an HTML select element.  | 
clusters.legend.title | 
 : Array. Get details in the example.  | 
clusters.legend.options | 
 : Array of Array. Get details in the example.  | 
clusters | 
 : Array of Array. Get details in the example.  | 
See online documentation http://robsonfernandes.net/bnviewer
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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45  | library(bnlearn)
library(bnviewer)
bayesianNetwork.boot.strength = boot.strength(coronary, R = 20, algorithm = "hc")
avg.bayesianNetwork = averaged.network(bayesianNetwork.boot.strength, threshold = 0.2)
strength.viewer(
  avg.bayesianNetwork,
  bayesianNetwork.boot.strength,
  bayesianNetwork.background = "white",
  bayesianNetwork.arc.strength.threshold.expression = c("@threshold > 0 & @threshold < 0.5",
                                                        "@threshold >= 0.5 & @threshold < 0.6",
                                                        "@threshold >= 0.6 & @threshold <= 1"),
  bayesianNetwork.arc.strength.threshold.expression.color  = c("red", "yellow", "green"),
  bayesianNetwork.arc.strength.threshold.alternative.color =  "white",
  bayesianNetwork.arc.strength.label = TRUE,
  bayesianNetwork.arc.strength.label.prefix = "",
  bayesianNetwork.arc.strength.label.color = "black",
  bayesianNetwork.arc.strength.tooltip = TRUE,
  bayesianNetwork.edge.scale.min = 1,
  bayesianNetwork.edge.scale.max = 3,
  bayesianNetwork.edge.scale.label.min = 14,
  bayesianNetwork.edge.scale.label.max = 14,
  bayesianNetwork.width = "100%",
  bayesianNetwork.height = "800px",
  bayesianNetwork.layout = "layout_with_sugiyama",
  node.colors = list(background = "#97c2fc",
                     border = "#2b7ce9",
                     highlight = list(background = "#e91eba",
                                      border = "#2b7ce9")),
  node.font = list(color = "black", face="Arial"),
  edges.dashes = FALSE,
  bayesianNetwork.title="Bayesian Network Strength Analysis - Coronary",
  bayesianNetwork.subtitle = "Coronary heart disease data set",
  bayesianNetwork.footer = "Fig. 1 - Layout with Sugiyama"
)
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.