All visNetwork plots for a CVN object

Creates all visNetwork plots, see visnetwork, for all graphs in a cvn object

Usage

visnetwork_cvn(
  cvn,
  node_titles = 1:cvn$p,
  titles = lapply(1:cvn$n_lambda_values, function(i) sapply(1:cvn$m, function(j) "")),
  show_core_graph = TRUE,
  width = c(3, 1),
  color = c("red", "blue"),
  igraph_layout = "layout_in_circle",
  verbose = TRUE
)

Arguments

cvn

A cvn object, see CVN

node_titles

Vector with title of the nodes (Default: 1:p)

titles

A list with n_lambda_values vectors. Each vector is of the lenght m. Regulates the titles of the graphs (Default: no title)

show_core_graph

Shall the core graph be visualized (Default = TRUE)

width

Edge width of the core graph

color

String vector with two colors. The first color marks the edges in the core graph (Default: c("red", "blue"))

igraph_layout

igraph layout (default: layout_in_circle)

verbose

Verbose (Default: TRUE)

Value

The cvn input which is extended by the list element 'plots'

See also

CVN, visnetwork

Examples

path <- system.file("cvnfit.RData", package = "CVN")
load(path)
fit_plot <- visnetwork_cvn(fit)
#> Creating visNetwork plots for the CVN...
#> 
#> Number of graphs:                  9
#> Number of different lambda values: 1
#> Creating nodes...
#> Determining the 'core graphs'...
#> Create the subset of edges in the core graphs...
#> 
#> 
#> Create plots given the determined edges...
#> 
fit_plot$plots[[1]][[1]]