X-Git-Url: https://git.auder.net/?p=nngd.git;a=blobdiff_plain;f=R%2Fectd.R;fp=R%2Fectd.R;h=74224e6ae6bdaa8e2aeaee90832dfeb6484d8d82;hp=727bbd4624da6d0dd5170c420c8da560b1e3af85;hb=0f87bb5bc8046a6f8d17eb56d6f4b96c90b9b995;hpb=de5652e336fa1e68765800cb3be27b893042281e diff --git a/R/ectd.R b/R/ectd.R index 727bbd4..74224e6 100644 --- a/R/ectd.R +++ b/R/ectd.R @@ -11,7 +11,7 @@ #' @export ectd <- function(o, similarity=function(x) 1, inf.replace=TRUE) { - if (!igraph::is_directed(o$graph)) + if (igraph::is_directed(o$graph)) stop("Directed graph case unimplemented yet") n <- igraph::vcount(o$graph) E <- igraph::as_edgelist(o$graph, names=FALSE)