# \donttest{
out <- fnets(data.unrestricted,
do.threshold = TRUE,
var.args = list(n.cores = 2)
)
net <- network(out, type = "granger")$network
plot(net, layout = igraph::layout_in_circle(net))
network(out, type = "pc")
network(out, type = "lrpc")
# }
Run the code above in your browser using DataLab