# NOT RUN {
set.seed(1234)
bs.null <- generate_null_net(Broadstone, Broadstone.prey,
data.type = "counts", sims = 10,
r.weights = Broadstone.fl)
BS.export <- generate_edgelist(bs.null, signif.level = 0.95,
edge.cols = c("#67A9CF", "black", "#EF8A62"))
if (requireNamespace("igraph", quietly = TRUE)) {
net.1 <- igraph::graph_from_edgelist(as.matrix(BS.export[, c("Resource",
"Consumer")]),
directed = TRUE)
# Add in the null modelling results
igraph::E(net.1)$obs.str <- BS.export$Observed
igraph::E(net.1)$test.res <- BS.export$Test
igraph::E(net.1)$edge.cols <- BS.export$edge.col
igraph::plot.igraph(net.1, layout = igraph::layout_in_circle,
edge.color = igraph::E(net.1)$edge.cols,
edge.width = sqrt(igraph::E(net.1)$obs.str),
edge.arrow.size = .4)
}
# }
Run the code above in your browser using DataLab