Closed #149 by adding extra column to node_tie_census in `cluster_str…

…uctural_equivalence()` for isolates, note that this renders all isolates structurally equivalent
stocnet · Dec 18, 2021 · 4ba0f47 · 4ba0f47
1 parent af2df86
commit 4ba0f47
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,10 @@
+# migraph 0.8.13
+
+## Modelling
+
+* Closed #149 by adding extra column to node_tie_census in `cluster_structural_equivalence()` for isolates
+  - Note that this renders all isolates structurally equivalent
+
 # migraph 0.8.12
 
 ## Package

diff --git a/R/cluster.R b/R/cluster.R
@@ -14,7 +14,9 @@ NULL
 #' @export
 cluster_structural_equivalence <- function(object){
   mat <- node_tie_census(object)
-  if(any(colSums(t(mat))==0)) stop("Please remove any isolates before using this function.")
+  if(any(colSums(t(mat))==0)){
+    mat <- cbind(mat, (colSums(t(mat))==0))
+  } 
   correlations <- cor(t(mat))
   dissimilarity <- 1 - correlations
   distances <- stats::as.dist(dissimilarity)

diff --git a/man/graph_census.Rd b/man/graph_census.Rd