From: Benjamin Auder Date: Tue, 7 Dec 2021 00:35:09 +0000 (+0100) Subject: Fix typo X-Git-Url: https://git.auder.net/%7B%7B%20asset%28%27mixstore/images/scripts/doc/html/pieces/current/gitweb.css?a=commitdiff_plain;p=nngd.git Fix typo --- 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)