From 0f87bb5bc8046a6f8d17eb56d6f4b96c90b9b995 Mon Sep 17 00:00:00 2001
From: Benjamin Auder <benjamin.auder@somewhere>
Date: Tue, 7 Dec 2021 01:35:09 +0100
Subject: [PATCH] Fix typo

---
 R/ectd.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.44.0