Fixed small issue with cluster_concor()

stocnet · May 24, 2024 · f875229 · f875229
1 parent c3626f8
commit f875229
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/model_cluster.R b/R/model_cluster.R
@@ -80,7 +80,7 @@ cluster_concor <- function(.data, census){
   if(manynet::is_twomode(.data)){
     p_list <- list(p_list[[1]][, !manynet::node_mode(.data), drop = FALSE],
                    p_list[[1]][, manynet::node_mode(.data), drop = FALSE])
-    p_group[[i]] <- lapply(p_list, function(z) colnames(z))
+    p_group[[1]] <- lapply(p_list, function(z) colnames(z))
     i <- 2
   } else i <- 1
   while(!all(vapply(p_list, function(x) ncol(x)==1, logical(1)))){