Running 'alarm.R' [3s]
  Running 'clusters.R' [3s]
  Running 'coronary.R' [170s]
  Running 'gaussian.R' [1s]
  Running 'insurance.R' [159s]
Running the tests in 'tests/coronary.R' failed.
Complete output:
  > library(bnlearn)
  > library(bnviewer)
  > 
  > bn.learn.hc = hc(coronary)
  > 
  > viewer(bn.learn.hc,
  +      bayesianNetwork.width = "100%",
  +      bayesianNetwork.height = "80vh",
  +      bayesianNetwork.layout = "layout_on_grid",
  +      bayesianNetwork.title="Discrete Bayesian Network - Coronary",
  +      bayesianNetwork.subtitle = "Coronary heart disease data set",
  +      bayesianNetwork.footer = "Fig. 1 - Layout on grid",
  +      edges.smooth = TRUE,
  +      node.colors = list(background = "#f4bafd",
  +                         border = "#2b7ce9",
  +                         highlight = "#97c2fc")
  + 
  +     )
  > 
  > viewer(bn.learn.hc,
  +      bayesianNetwork.width = "100%",
  +      bayesianNetwork.height = "80vh",
  +      bayesianNetwork.layout = "layout_as_star",
  +      bayesianNetwork.title="Discrete Bayesian Network - Coronary",
  +      bayesianNetwork.subtitle = "Coronary heart disease data set",
  +      bayesianNetwork.footer = "Fig. 1 - Layout as star",
  +      edges.smooth = TRUE,
  +      node.colors = list(background = "#f4bafd",
  +                         border = "#2b7ce9",
  +                         highlight = list(background = "#97c2fc",
  +                                          border = "#2b7ce9"))
  + 
  + )
  > 
  > 
  > viewer(bn.learn.hc,
  +      bayesianNetwork.width = "100%",
  +      bayesianNetwork.height = "80vh",
  +      bayesianNetwork.layout = "layout_in_circle",
  +      bayesianNetwork.title="Discrete Bayesian Network - Coronary",
  +      bayesianNetwork.subtitle = "Coronary heart disease data set",
  +      bayesianNetwork.footer = "Fig. 1 - Layout with circle",
  +      edges.dashes = FALSE,
  + 
  +      node.colors = list(background = "red",
  +                         border = "black",
  +                         highlight = list(background = "black",
  +                                          border = "red"))
  + 
  + )
  > 
  > proc.time()
     user  system elapsed 
     0.92    0.18    1.10 
Running the tests in 'tests/insurance.R' failed.
Complete output:
  > library(bnlearn)
  > library(bnviewer)
  > 
  > 
  > model.right.arrow = " Age -> (GoodStudent,RiskAversion,SocioEcon, MedCost);
  +                           RiskAversion -> (DrivHist,DrivQuality);
  +                           RiskAversion -> (MakeModel, SeniorTrain);
  +                           MakeModel -> (Airbag, RuggedAuto, CarValue);
  +                           SocioEcon -> (RiskAversion, OtherCar);
  +                           SeniorTrain -> (DrivingSkill);
  +                           DrivingSkill -> (DrivHist, DrivQuality);
  +                           Accident -> (MedCost, ILiCost, OtherCarCost)
  +                         "
  > 
  > structure = model.to.structure(model.right.arrow)
  > 
  > viewer(structure,
  +        bayesianNetwork.width = "100%",
  +        bayesianNetwork.height = "100vh",
  +        # bayesianNetwork.enabled.interactive.mode = TRUE,
  +        edges.smooth = FALSE,
  +        bayesianNetwork.layout = "layout_with_gem",
  +        node.colors = list(background = "#f4bafd",
  +                          border = "#2b7ce9",
  +                          highlight = list(background = "#97c2fc",
  +                                           border = "#2b7ce9")),
  + 
  +        clusters.legend.title = list(text = "Legend"),
  + 
  +        clusters.legend.options = list(
  + 
  +          list(label = "Driving",
  +               shape = "icon",
  +               icon = list(code = "f111", size = 50, color = "#e91e63")),
  + 
  +          list(label = "Cost",
  +               shape = "icon",
  +               icon = list(code = "f111", size = 50, color = "#03a9f4"))
  +        ),
  + 
  +        clusters = list(
  +          list(label = "Driving",
  +               shape = "icon",
  +               icon = list(code = "f111", color = "#e91e63"),
  +               nodes = list("DrivingSkill","DrivHist","DrivQuality")),
  +          list(label = "Cost",
  +               shape = "icon",
  +               icon = list(code = "f111", color = "#03a9f4"),
  +               nodes = list("MedCost","ILiCost","OtherCarCost"))
  +        )
  + 
  +       )
  > 
  > proc.time()
     user  system elapsed 
     0.73    0.21    0.93