Fix typo

diff --git a/R/ectd.R b/R/ectd.R
index 727bbd4..74224e6 100644 (file)
--- a/R/ectd.R
+++ b/R/ectd.R
@@ -11,7 +11,7 @@
 #' @export
 ectd <- function(o, similarity=function(x) 1, inf.replace=TRUE)
 {
 #' @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)
     stop("Directed graph case unimplemented yet")
   n <- igraph::vcount(o$graph)
   E <- igraph::as_edgelist(o$graph, names=FALSE)