From: Benjamin Auder <benjamin.auder@somewhere>
Date: Tue, 7 Dec 2021 00:35:09 +0000 (+0100)
Subject: Fix typo
X-Git-Url: https://git.auder.net/doc/html/vendor/pieces/current/common.css?a=commitdiff_plain;h=0f87bb5bc8046a6f8d17eb56d6f4b96c90b9b995;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)