Lines Matching refs:edges
35 check.dpl.edges <- function(edges, undirected=FALSE, order.edgelist=TRUE) { argument
41 if (any(!is.finite(edges) | is.null(edges)))
44 edges0 <- cbind(edges, id = 1:nrow(edges))
46 edges <- switch.edges(edges)
49 edges_unique <- unique(edges)
52 edges <- cbind(edges, id = 1:nrow(edges))
53 edges <- edges[order(edges[,1], edges[,2]), ]
58 (edges[-1, 1] != edges[-nrow(edges), 1]) |
59 (edges[-1, 2] != edges[-nrow(edges), 2])
68 c(TRUE, (edges[-1, 1] == edges[-nrow(edges), 1]) &
69 (edges[-1, 2] == edges[-nrow(edges), 2])
72 edges <- cbind(edges, counts = dupls)[to_keep, , drop = FALSE]
73 edges[, "counts"] <- edges[, "counts"] - c(1, edges[-nrow(edges), "counts"]) + 1
74 edges <- edges[order(edges[, "id"]), , drop = FALSE]
77 result <- data.frame(id = edges[,"id"], reps=edges[,"counts"], check.names=FALSE)
115 switch.edges <- function(edges) { argument
119 if (any(is.na(edges) | is.null(edges) | is.nan(edges)))
122 which_min <- which(max.col(edges) == 1)
123 edges[which_min, ] <- edges[which_min, 2:1]
127 source=edges[,1],
128 target=edges[,2],