# undirected network n <- network(e[, -3], directed = FALSE) stopifnot(nrow(e) == network.edgecount(n)) set.edge.attribute(n, "weight", e$w) # weighted degree at alpha = 1 t <- as.edgelist(n, attrname = "weight") %>% symmetrise_w %>% as.tnet %>% degree_w stopifnot(nrow(t) == network.size(n)) set.vertex.attribute(n, "degree_w", t[, "output" ])