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